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
b7411f1a84 Jean*0006
ffe464dc7d Mart*0007 C     !INTERFACE:
                0008       SUBROUTINE SHELFICE_MNC_INIT( myThid )
b7411f1a84 Jean*0009
ffe464dc7d Mart*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       ENDIF
                0038 #endif /*  ALLOW_MNC     */
                0039 #endif /*  ALLOW_SHELFICE  */
                0040
                0041       RETURN
                0042       END