pkg/aim_v23/aim_mnc_init.F

ad0ca66649 Ed H*0001 #include "AIM_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: AIM_MNC_INIT
                0005
                0006 C     !INTERFACE:
                0007       SUBROUTINE AIM_MNC_INIT( myThid )
                0008
36651eeba7 Jean*0009 C     !DESCRIPTION:
ad0ca66649 Ed H*0010 C     Initialize MNC variables for AIM.
                0011
                0012 C     !USES:
                0013       IMPLICIT NONE
                0014 #include "AIM_SIZE.h"
                0015 #include "EEPARAMS.h"
                0016 #include "PARAMS.h"
                0017 #include "AIM_PARAMS.h"
78ad6fc820 Ed H*0018 #ifdef ALLOW_MNC
                0019 #include "MNC_SIZE.h"
                0020 #include "MNC_PARAMS.h"
                0021 #endif
ad0ca66649 Ed H*0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024       INTEGER myThid
                0025 CEOP
                0026
36651eeba7 Jean*0027 #ifdef ALLOW_MNC
25c7945514 Dani*0028 C     == Local variables ==
36651eeba7 Jean*0029       INTEGER i,j, ndim
                0030       INTEGER CW_MAX_LOC
                0031       PARAMETER ( CW_MAX_LOC = 6 )
                0032       CHARACTER*(MNC_MAX_CHAR) dn(CW_MAX_LOC)
                0033       INTEGER dim(CW_MAX_LOC), ib(CW_MAX_LOC), ie(CW_MAX_LOC)
                0034
                0035 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
25c7945514 Dani*0036
78ad6fc820 Ed H*0037 C     Non-halo-ed variables
                0038       DO i = 1,CW_MAX_LOC
                0039         DO j = 1,MNC_MAX_CHAR
                0040           dn(i)(j:j) = ' '
                0041         ENDDO
                0042         dim(i) = 0
                0043         ib(i) = 0
                0044         ie(i) = 0
                0045       ENDDO
                0046
                0047       ndim = 1
                0048       dn(ndim)(1:1) = 'X'
                0049       dim(ndim) = sNx
                0050       ib(ndim)  = 1
                0051       ie(ndim)  = sNx
                0052       ndim = ndim + 1
                0053       dn(ndim)(1:1) = 'Y'
                0054       dim(ndim) = sNy
                0055       ib(ndim)  = 1
                0056       ie(ndim)  = sNy
                0057       ndim = ndim + 1
                0058       dn(ndim)(1:1) = 'T'
                0059       dim(ndim) = -1
                0060       ib(ndim)  = 1
                0061       ie(ndim)  = 1
                0062       CALL MNC_CW_ADD_GNAME('AIM_xyt',  ndim, dim,dn,ib,ie, myThid)
                0063       ndim = 3
                0064       dn(ndim)(1:4) = 'Zaim'
                0065       dim(ndim) = NLEV
                0066       ib(ndim)  = 1
                0067       ie(ndim)  = NLEV
                0068       ndim = ndim + 1
                0069       dn(ndim)(1:1) = 'T'
                0070       dim(ndim) = -1
                0071       ib(ndim)  = 1
                0072       ie(ndim)  = 1
                0073       CALL MNC_CW_ADD_GNAME('AIM_xyzt', ndim, dim,dn,ib,ie, myThid)
                0074
                0075       CALL MNC_CW_ADD_VNAME('aim_DRAG0','AIM_xyt',0,0,myThid)
                0076       CALL MNC_CW_ADD_VATTR_TEXT('aim_DRAG0','units','---',myThid)
                0077
                0078       CALL MNC_CW_ADD_VNAME('aim_SPEED0','AIM_xyt',0,0,myThid)
                0079       CALL MNC_CW_ADD_VATTR_TEXT('aim_SPEED0','units','---',myThid)
                0080
                0081       CALL MNC_CW_ADD_VNAME('aim_TSR','AIM_xyt',0,0,myThid)
                0082       CALL MNC_CW_ADD_VATTR_TEXT('aim_TSR','units','---',myThid)
                0083
                0084       CALL MNC_CW_ADD_VNAME('aim_OLR','AIM_xyt',0,0,myThid)
                0085       CALL MNC_CW_ADD_VATTR_TEXT('aim_OLR','units','---',myThid)
                0086
                0087       CALL MNC_CW_ADD_VNAME('aim_SSR0','AIM_xyt',0,0,myThid)
                0088       CALL MNC_CW_ADD_VATTR_TEXT('aim_SSR0','units','---',myThid)
                0089
                0090       CALL MNC_CW_ADD_VNAME('aim_SLR0','AIM_xyt',0,0,myThid)
                0091       CALL MNC_CW_ADD_VATTR_TEXT('aim_SLR0','units','---',myThid)
                0092
                0093       CALL MNC_CW_ADD_VNAME('aim_SHF0','AIM_xyt',0,0,myThid)
                0094       CALL MNC_CW_ADD_VATTR_TEXT('aim_SHF0','units','---',myThid)
                0095
                0096       CALL MNC_CW_ADD_VNAME('aim_EVAP0','AIM_xyt',0,0,myThid)
                0097       CALL MNC_CW_ADD_VATTR_TEXT('aim_EVAP0','units','---',myThid)
                0098
                0099       CALL MNC_CW_ADD_VNAME('aim_PRECNV','AIM_xyt',0,0,myThid)
                0100       CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECNV','units','---',myThid)
                0101
                0102       CALL MNC_CW_ADD_VNAME('aim_PRECLS','AIM_xyt',0,0,myThid)
                0103       CALL MNC_CW_ADD_VATTR_TEXT('aim_PRECLS','units','---',myThid)
                0104
                0105       CALL MNC_CW_ADD_VNAME('aim_CLOUDC','AIM_xyt',0,0,myThid)
                0106       CALL MNC_CW_ADD_VATTR_TEXT('aim_CLOUDC','units','---',myThid)
                0107
                0108       CALL MNC_CW_ADD_VNAME('aim_CLTOP','AIM_xyt',0,0,myThid)
                0109       CALL MNC_CW_ADD_VATTR_TEXT('aim_CLTOP','units','---',myThid)
                0110
                0111       CALL MNC_CW_ADD_VNAME('aim_CBMF','AIM_xyt',0,0,myThid)
                0112       CALL MNC_CW_ADD_VATTR_TEXT('aim_CBMF','units','---',myThid)
                0113
                0114       CALL MNC_CW_ADD_VNAME('aim_T0','AIM_xyt',0,0,myThid)
                0115       CALL MNC_CW_ADD_VATTR_TEXT('aim_T0','units','---',myThid)
                0116
                0117       CALL MNC_CW_ADD_VNAME('aim_Q0','AIM_xyt',0,0,myThid)
                0118       CALL MNC_CW_ADD_VATTR_TEXT('aim_Q0','units','---',myThid)
                0119
                0120       CALL MNC_CW_ADD_VNAME('aim_EnPrec','AIM_xyt',0,0,myThid)
                0121       CALL MNC_CW_ADD_VATTR_TEXT('aim_EnPrec','units','J/g',myThid)
                0122
                0123       CALL MNC_CW_ADD_VNAME('aim_alb10','AIM_xyt',0,0,myThid)
                0124       CALL MNC_CW_ADD_VATTR_TEXT('aim_alb10','units','---',myThid)
                0125
                0126       CALL MNC_CW_ADD_VNAME('aim_dTsurf1','AIM_xyt',0,0,myThid)
                0127       CALL MNC_CW_ADD_VATTR_TEXT('aim_dTsurf1','units','---',myThid)
                0128
                0129       CALL MNC_CW_ADD_VNAME('aim_TSWclr','AIM_xyt',0,0,myThid)
                0130       CALL MNC_CW_ADD_VATTR_TEXT('aim_TSWclr','units','---',myThid)
                0131
                0132       CALL MNC_CW_ADD_VNAME('aim_OLWclr','AIM_xyt',0,0,myThid)
                0133       CALL MNC_CW_ADD_VATTR_TEXT('aim_OLWclr','units','---',myThid)
                0134
                0135       CALL MNC_CW_ADD_VNAME('aim_SSWclr','AIM_xyt',0,0,myThid)
                0136       CALL MNC_CW_ADD_VATTR_TEXT('aim_SSWclr','units','---',myThid)
                0137
                0138       CALL MNC_CW_ADD_VNAME('aim_SLWclr','AIM_xyt',0,0,myThid)
                0139       CALL MNC_CW_ADD_VATTR_TEXT('aim_SLWclr','units','---',myThid)
                0140
36651eeba7 Jean*0141 #endif /* ALLOW_MNC */
ad0ca66649 Ed H*0142
                0143       RETURN
                0144       END