pkg/shelfice/shelfice_mnc_init.F

ffe464dc7d Mart*0001 #include "SHELFICE_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: SHELFICE_MNC_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE SHELFICE_MNC_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize SHELFICE variables within MNC
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     !INPUT PARAMETERS:
                0020       INTEGER myThid
                0021 CEOP
                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 C       Time averages
                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