pkg/thsice/thsice_mnc_init.F

df4e8f7bcf Ed H*0001 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0002
                0003 #include "THSICE_OPTIONS.h"
                0004
                0005 CBOP
                0006 C     !ROUTINE: THSICE_MNC_INIT
                0007
                0008 C     !INTERFACE:
                0009       SUBROUTINE THSICE_MNC_INIT( myThid )
                0010
b7411f1a84 Jean*0011 C     !DESCRIPTION:
df4e8f7bcf Ed H*0012 C     Initialize MNC variables for THSICE
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
b7411f1a84 Jean*0016
df4e8f7bcf Ed H*0017 C     !INPUT/OUTPUT PARAMETERS:
                0018       INTEGER myThid
                0019 CEOP
                0020
                0021 #ifdef ALLOW_MNC
                0022
                0023 C     =====  Fields for the pickups and snapshot output =====
                0024       CALL MNC_CW_ADD_VNAME('iceMask','Cen_xy_Hn__-__t',3,4,myThid)
                0025       CALL MNC_CW_ADD_VATTR_TEXT('iceMask','units','---', myThid)
                0026
                0027       CALL MNC_CW_ADD_VNAME('iceHeight','Cen_xy_Hn__-__t',3,4,myThid)
                0028       CALL MNC_CW_ADD_VATTR_TEXT('iceHeight','units','---', myThid)
                0029
                0030       CALL MNC_CW_ADD_VNAME('snowHeight','Cen_xy_Hn__-__t',3,4,myThid)
                0031       CALL MNC_CW_ADD_VATTR_TEXT('snowHeight','units','---', myThid)
                0032
                0033       CALL MNC_CW_ADD_VNAME('Tsrf','Cen_xy_Hn__-__t',3,4,myThid)
                0034       CALL MNC_CW_ADD_VATTR_TEXT('Tsrf','units','---', myThid)
                0035
                0036       CALL MNC_CW_ADD_VNAME('Tice1','Cen_xy_Hn__-__t',3,4,myThid)
                0037       CALL MNC_CW_ADD_VATTR_TEXT('Tice1','units','---', myThid)
                0038
                0039       CALL MNC_CW_ADD_VNAME('Tice2','Cen_xy_Hn__-__t',3,4,myThid)
                0040       CALL MNC_CW_ADD_VATTR_TEXT('Tice2','units','---', myThid)
                0041
                0042       CALL MNC_CW_ADD_VNAME('Qice1','Cen_xy_Hn__-__t',3,4,myThid)
                0043       CALL MNC_CW_ADD_VATTR_TEXT('Qice1','units','---', myThid)
b7411f1a84 Jean*0044
df4e8f7bcf Ed H*0045       CALL MNC_CW_ADD_VNAME('Qice2','Cen_xy_Hn__-__t',3,4,myThid)
                0046       CALL MNC_CW_ADD_VATTR_TEXT('Qice2','units','---', myThid)
b7411f1a84 Jean*0047
df4e8f7bcf Ed H*0048       CALL MNC_CW_ADD_VNAME('snowAge','Cen_xy_Hn__-__t',3,4,myThid)
                0049       CALL MNC_CW_ADD_VATTR_TEXT('snowAge','units','---', myThid)
b7411f1a84 Jean*0050
df4e8f7bcf Ed H*0051       CALL MNC_CW_ADD_VNAME('tOceMxL','Cen_xy_Hn__-__t',3,4,myThid)
                0052       CALL MNC_CW_ADD_VATTR_TEXT('tOceMxL','units','---', myThid)
                0053
                0054       CALL MNC_CW_ADD_VNAME('sOceMxL','Cen_xy_Hn__-__t',3,4,myThid)
                0055       CALL MNC_CW_ADD_VATTR_TEXT('sOceMxL','units','---', myThid)
                0056
                0057 #endif
                0058
                0059 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0060
                0061       RETURN
                0062       END