File indexing completed on 2018-03-02 18:43:58 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
ffe464dc7d Mart*0001 #include "SHELFICE_OPTIONS.h"
0002
0003
0004
0005
0006
0007
0008 SUBROUTINE SHELFICE_MNC_INIT( myThid )
0009
0010
0011
0012
0013
0014 IMPLICIT NONE
0015 #include "SIZE.h"
0016 #include "EEPARAMS.h"
0017 #include "PARAMS.h"
0018
0019
0020 INTEGER myThid
0021
0022
0023 #ifdef ALLOW_SHELFICE
0024 #ifdef ALLOW_MNC
0025 IF (useMNC) THEN
0026
0027 CALL MNC_CW_ADD_VNAME('fwFlux','Cen_xy_Hn__-__t',3,4,myThid)
08c4f5fd71 Mart*0028 CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','units','kg/m^2/s', myThid)
ffe464dc7d Mart*0029 CALL MNC_CW_ADD_VATTR_TEXT('fwFlux','description',
0030 & 'Net fresh water flux into shelfice',myThid)
0031
0032 CALL MNC_CW_ADD_VNAME('heatFlux','Cen_xy_Hn__-__t',3,4,myThid)
0033 CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','units','W/m^2',myThid)
0034 CALL MNC_CW_ADD_VATTR_TEXT('heatFlux','description',
0035 & 'Net heat flux into shelfice',myThid)
0036
0037
0038
0039 CALL MNC_CW_ADD_VNAME(
0040 & 'fwFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
0041 CALL MNC_CW_ADD_VATTR_TEXT(
08c4f5fd71 Mart*0042 & 'fwFluxtave','units','kg/m^2/s',myThid)
ffe464dc7d Mart*0043 CALL MNC_CW_ADD_VATTR_TEXT('fwFluxtave','description',
0044 & 'Time-averaged net freshwater flux into shelfice', myThid)
0045
0046 CALL MNC_CW_ADD_VNAME(
0047 & 'heatFluxtave','Cen_xy_Hn__-__t',3,4,myThid)
0048 CALL MNC_CW_ADD_VATTR_TEXT(
0049 & 'heatFluxtave','units','W/m^2', myThid)
0050 CALL MNC_CW_ADD_VATTR_TEXT('heatFluxtave','description',
0051 & 'Time-averaged net heat flux into shelfice', myThid)
0052
0053 ENDIF
0054 #endif /* ALLOW_MNC */
0055 #endif /* ALLOW_SHELFICE */
0056
0057 RETURN
0058 END
0059