C $Header: /u/gcmpack/MITgcm/pkg/atm2d/AGRID.h,v 1.6 2009/09/02 16:26:22 jscott Exp $ C $Name: $ COMMON/ATM_GRID/atm_yC,atm_yG REAL*4 atm_yC(jm0) ! center points of atmos grid REAL*4 atm_yG(jm0) ! southern boundary of atmos grid cells COMMON/ATM2OCEAN/hfluxo,hfluxi,dhfodtg,dhfodtgeq, & dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq, & devidtg,devidtgeq,tauu,tauv,arunoff,solarinc_ice,solarnet_ice, & solarinc_ocean,solarnet_ocean,wsocean,co24ocean,ps4ocean,tempr REAL*8 hfluxo(jm0) ! ocean surf. heat flux (W/m2) (+=downward) REAL*8 hfluxi(jm0) ! seaice surf. heat flux (W/m2) (+=downward) REAL*8 dhfodtg(jm0) ! dF/dT ocean, consistent with above units (-) REAL*8 dhfodtgeq(jm0) ! dF/dT ocean, alternative formulation REAL*8 dhfidtg(jm0) ! dF/dT seaice REAL*8 dhfidtgeq(jm0) ! dF/dT seaice alternative formulation REAL*8 precip(jm0) ! precip (mm/day) (+=into ocean) REAL*8 evao(jm0) ! ocean evap. (mm/day) (+=out of ocean) REAL*8 evai(jm0) ! seaice evap. (mm/day) (+=out of ocean) REAL*8 devodtg(jm0) ! dL/dT ocean, consistent with above units (+) REAL*8 devodtgeq(jm0) ! dL/dT ocean, alternative formulation REAL*8 devidtg(jm0) ! dL/dT ice REAL*8 devidtgeq(jm0) ! dL/dT ice, alternative formulation REAL*8 tauu(jm0) ! zonal mom flux at lower boundary (N/m2) REAL*8 tauv(jm0) ! merid. mom flux at lower boundary (N/m2) REAL*8 arunoff(jm0) ! runoff (kg/day) (+=into ocean) REAL*8 solarinc_ice(jm0) ! solar incoming (+=into ocean) REAL*8 solarnet_ice(jm0) ! net solar radation to ice (not used) REAL*8 solarinc_ocean(jm0) ! solar incoming (+=into ocean)(unused) REAL*8 solarnet_ocean(jm0) ! net radiation solar to ocean REAL*8 wsocean(jm0) ! windspeed at ocean surface (m/s) REAL*8 co24ocean(jm0) ! atmospheric CO2 (ppm) REAL*8 ps4ocean(jm0) ! surf pres (mb), to be normalized to sea level REAL*8 tempr(jm0) ! precipitation temp (used over seaice) (C) COMMON/ATM_PROF/sigfl,qyz4ocean,tyz4ocean REAL*8 sigfl(lm0) ! sigma levels of atmospheric model REAL*8 qyz4ocean(jm0,lm0) ! atmos mixing ratio structure (kg/kg) REAL*8 tyz4ocean(jm0,lm0) ! atmos temp structure (K) COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb, & mmsAlbNIR, mmicem, mmtice1, mmtice2, mmsnowm REAL*8 mmsst(jm0) ! zonal mean SST (C) REAL*8 mmfice(jm0) ! fraction of ocean area with seaice cover REAL*8 mmtice(jm0) ! zonal mean seaice TSurf (C) REAL*8 mmco2flux(jm0)! total ocean->atmos CO2 flux (mol/s for latitude band) REAL*8 cflan(jm0) ! fraction of land in latitude circle REAL*8 mmsAlb(jm0) ! zonal mean visual seaice albedo REAL*8 mmsAlbNIR(jm0) ! zonal mean near IR seaice albedo REAL*8 mmicem(jm0) REAL*8 mmtice1(jm0) REAL*8 mmtice2(jm0) REAL*8 mmsnowm(jm0) #ifdef ML_2D common/OCEAN2ATM/osst(jm0),aoice(jm0),foice(jm0), & snowice(jm0),tice1(jm0),tice2(jm0) common /TIME4ML/TOFDAYML,TAUML,IDAYM,JDAYM,JMONTHM,JYEARM,KOCEANM & ,JDATEM character *4 JMONTHM common/mltemp/osst2(jm0),osst3(jm0),rseaice(jm0) & ,CLAND4OCEAN(io0,jm0) common/atmnth/nmonth character *4 nmonth #endif