Back to home page

MITgcm

 
 

    


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 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