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
                0011 C     !DESCRIPTION:
                0012 C     Initialize MNC variables for THSICE
                0013
                0014 C     !USES:
                0015       IMPLICIT NONE
                0016
                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)
                0044
                0045       CALL MNC_CW_ADD_VNAME('Qice2','Cen_xy_Hn__-__t',3,4,myThid)
                0046       CALL MNC_CW_ADD_VATTR_TEXT('Qice2','units','---', myThid)
                0047
                0048       CALL MNC_CW_ADD_VNAME('snowAge','Cen_xy_Hn__-__t',3,4,myThid)
                0049       CALL MNC_CW_ADD_VATTR_TEXT('snowAge','units','---', myThid)
                0050
                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
                0058 C     =====  Fields for the tave output  =====
                0059       CALL MNC_CW_ADD_VNAME('fract_ave','Cen_xy_Hn__-__t',3,4,myThid)
83902e19cc Ed H*0060       CALL MNC_CW_ADD_VATTR_TEXT('fract_ave','units','---', myThid)
df4e8f7bcf Ed H*0061
                0062       CALL MNC_CW_ADD_VNAME('iceH_ave','Cen_xy_Hn__-__t',3,4,myThid)
83902e19cc Ed H*0063       CALL MNC_CW_ADD_VATTR_TEXT('iceH_ave','units','---', myThid)
df4e8f7bcf Ed H*0064
                0065       CALL MNC_CW_ADD_VNAME('snowH_ave','Cen_xy_Hn__-__t',3,4,myThid)
83902e19cc Ed H*0066       CALL MNC_CW_ADD_VATTR_TEXT('snowH_ave','units','---', myThid)
df4e8f7bcf Ed H*0067
5604830df3 Ed H*0068       CALL MNC_CW_ADD_VNAME('Tsrf_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0069       CALL MNC_CW_ADD_VATTR_TEXT('Tsrf','units','---', myThid)
                0070
                0071       CALL MNC_CW_ADD_VNAME('Tice1_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0072       CALL MNC_CW_ADD_VATTR_TEXT('Tice1','units','---', myThid)
                0073
                0074       CALL MNC_CW_ADD_VNAME('Tice2_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0075       CALL MNC_CW_ADD_VATTR_TEXT('Tice2','units','---', myThid)
                0076
df4e8f7bcf Ed H*0077       CALL MNC_CW_ADD_VNAME('snowPr_ave','Cen_xy_Hn__-__t',3,4,myThid)
83902e19cc Ed H*0078       CALL MNC_CW_ADD_VATTR_TEXT('snowPr_ave','units','---', myThid)
df4e8f7bcf Ed H*0079
                0080       CALL MNC_CW_ADD_VNAME('albedo_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0081       CALL MNC_CW_ADD_VATTR_TEXT('albedo_ave','units','---', myThid)
                0082
                0083       CALL MNC_CW_ADD_VNAME('flx2oc_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0084       CALL MNC_CW_ADD_VATTR_TEXT('flx2oc_ave','units','---', myThid)
                0085
                0086       CALL MNC_CW_ADD_VNAME('frw2oc_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0087       CALL MNC_CW_ADD_VATTR_TEXT('frw2oc_ave','units','---', myThid)
                0088
                0089       CALL MNC_CW_ADD_VNAME('flxAtm_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0090       CALL MNC_CW_ADD_VATTR_TEXT('flxAtm_ave','units','---', myThid)
                0091
                0092       CALL MNC_CW_ADD_VNAME('frwAtm_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0093       CALL MNC_CW_ADD_VATTR_TEXT('frwAtm_ave','units','---', myThid)
                0094
                0095       CALL MNC_CW_ADD_VNAME('tMxL_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0096       CALL MNC_CW_ADD_VATTR_TEXT('tMxL_ave','units','---', myThid)
                0097
                0098       CALL MNC_CW_ADD_VNAME('sMxL_ave','Cen_xy_Hn__-__t',3,4,myThid)
                0099       CALL MNC_CW_ADD_VATTR_TEXT('sMxL_ave','units','---', myThid)
                0100
                0101 #endif
                0102
                0103 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0104
                0105       RETURN
                0106       END