pkg/atm2d/AGRID.h

09a6f3668a Jeff*0001       COMMON/ATM_GRID/atm_yC,atm_yG
                0002        REAL*4 atm_yC(jm0)    ! center points of atmos grid
                0003        REAL*4 atm_yG(jm0)    ! southern boundary of atmos grid cells
                0004
                0005       COMMON/ATM2OCEAN/hfluxo,hfluxi,dhfodtg,dhfodtgeq,
                0006      & dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq,
                0007      & devidtg,devidtgeq,tauu,tauv,arunoff,solarinc_ice,solarnet_ice,
                0008      & solarinc_ocean,solarnet_ocean,wsocean,co24ocean,ps4ocean,tempr
9274434acc Jean*0009
09a6f3668a Jeff*0010        REAL*8 hfluxo(jm0)    ! ocean surf. heat flux (W/m2) (+=downward)
                0011        REAL*8 hfluxi(jm0)    ! seaice surf. heat flux (W/m2) (+=downward)
                0012        REAL*8 dhfodtg(jm0)   ! dF/dT ocean, consistent with above units (-)
                0013        REAL*8 dhfodtgeq(jm0) ! dF/dT ocean, alternative formulation
                0014        REAL*8 dhfidtg(jm0)   ! dF/dT seaice
                0015        REAL*8 dhfidtgeq(jm0) ! dF/dT seaice alternative formulation
                0016        REAL*8 precip(jm0)    ! precip (mm/day) (+=into ocean)
                0017        REAL*8 evao(jm0)      ! ocean evap. (mm/day) (+=out of ocean)
                0018        REAL*8 evai(jm0)      ! seaice evap. (mm/day) (+=out of ocean)
                0019        REAL*8 devodtg(jm0)   ! dL/dT ocean, consistent with above units (+)
                0020        REAL*8 devodtgeq(jm0) ! dL/dT ocean, alternative formulation
                0021        REAL*8 devidtg(jm0)   ! dL/dT ice
                0022        REAL*8 devidtgeq(jm0) ! dL/dT ice, alternative formulation
                0023        REAL*8 tauu(jm0)      ! zonal mom flux at lower boundary (N/m2)
                0024        REAL*8 tauv(jm0)      ! merid. mom flux at lower boundary (N/m2)
                0025        REAL*8 arunoff(jm0)   ! runoff (kg/day) (+=into ocean)
                0026        REAL*8 solarinc_ice(jm0)    ! solar incoming (+=into ocean)
                0027        REAL*8 solarnet_ice(jm0)    ! net solar radation to ice (not used)
                0028        REAL*8 solarinc_ocean(jm0)  ! solar incoming (+=into ocean)(unused)
                0029        REAL*8 solarnet_ocean(jm0)  ! net radiation solar to ocean
                0030        REAL*8 wsocean(jm0)   ! windspeed at ocean surface (m/s)
                0031        REAL*8 co24ocean(jm0) ! atmospheric CO2  (ppm)
                0032        REAL*8 ps4ocean(jm0)  ! surf pres (mb), to be normalized to sea level
                0033        REAL*8 tempr(jm0)     ! precipitation temp (used over seaice) (C)
                0034
                0035
                0036       COMMON/ATM_PROF/sigfl,qyz4ocean,tyz4ocean
                0037        REAL*8 sigfl(lm0)     ! sigma levels of atmospheric model
                0038        REAL*8 qyz4ocean(jm0,lm0)  ! atmos mixing ratio structure (kg/kg)
                0039        REAL*8 tyz4ocean(jm0,lm0)  ! atmos temp structure (K)
9274434acc Jean*0040
09a6f3668a Jeff*0041       COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb,
7533602568 Jeff*0042      &              mmsAlbNIR, mmicem, mmtice1, mmtice2, mmsnowm
09a6f3668a Jeff*0043        REAL*8 mmsst(jm0)    ! zonal mean SST (C)
                0044        REAL*8 mmfice(jm0)   ! fraction of ocean area with seaice cover
                0045        REAL*8 mmtice(jm0)   ! zonal mean seaice TSurf (C)
120cbb7fd3 Jeff*0046        REAL*8 mmco2flux(jm0)! total ocean->atmos CO2 flux (mol/s for latitude band)
09a6f3668a Jeff*0047        REAL*8 cflan(jm0)    ! fraction of land in latitude circle
5449df70b3 Jeff*0048        REAL*8 mmsAlb(jm0)   ! zonal mean visual seaice albedo
7533602568 Jeff*0049        REAL*8 mmsAlbNIR(jm0)   ! zonal mean near IR seaice albedo
09a6f3668a Jeff*0050        REAL*8 mmicem(jm0)
                0051        REAL*8 mmtice1(jm0)
                0052        REAL*8 mmtice2(jm0)
                0053        REAL*8 mmsnowm(jm0)
                0054
                0055 #ifdef ML_2D
                0056       common/OCEAN2ATM/osst(jm0),aoice(jm0),foice(jm0),
                0057      & snowice(jm0),tice1(jm0),tice2(jm0)
                0058
                0059       common /TIME4ML/TOFDAYML,TAUML,IDAYM,JDAYM,JMONTHM,JYEARM,KOCEANM
                0060      &  ,JDATEM
                0061       character *4 JMONTHM
                0062
                0063       common/mltemp/osst2(jm0),osst3(jm0),rseaice(jm0)
                0064      & ,CLAND4OCEAN(io0,jm0)
                0065       common/atmnth/nmonth
                0066       character *4 nmonth
                0067
                0068 #endif
                0069