/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/AGRID.h
ViewVC logotype

Diff of /MITgcm_contrib/jscott/igsm/inc/AGRID.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jscott, Mon Jun 4 08:34:51 2007 UTC revision 1.2 by jscott, Mon Oct 15 14:59:54 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4        COMMON/ATM_GRID/atm_yC,atm_yG        COMMON/ATM_GRID/atm_yC,atm_yG
5         REAL*4 atm_yC(jm0)    ! center points of atmos grid         REAL*4 atm_yC(jm0)    ! center points of atmos grid
6         REAL*4 atm_yG(jm0)    ! southern boundary of atmos grid cells         REAL*4 atm_yG(jm0)    ! southern boundary of atmos grid cells
# Line 6  Line 9 
9       & dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq,       & dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq,
10       & devidtg,devidtgeq,tauu,tauv,arunoff,solarinc_ice,solarnet_ice,       & devidtg,devidtgeq,tauu,tauv,arunoff,solarinc_ice,solarnet_ice,
11       & solarinc_ocean,solarnet_ocean,wsocean,co24ocean,ps4ocean,tempr       & solarinc_ocean,solarnet_ocean,wsocean,co24ocean,ps4ocean,tempr
12        
13         REAL*8 hfluxo(jm0)    ! ocean surf. heat flux (W/m2) (+=downward)         REAL*8 hfluxo(jm0)    ! ocean surf. heat flux (W/m2) (+=downward)
14         REAL*8 hfluxi(jm0)    ! seaice surf. heat flux (W/m2) (+=downward)         REAL*8 hfluxi(jm0)    ! seaice surf. heat flux (W/m2) (+=downward)
15         REAL*8 dhfodtg(jm0)   ! dF/dT ocean, consistent with above units (-)         REAL*8 dhfodtg(jm0)   ! dF/dT ocean, consistent with above units (-)
# Line 37  Line 40 
40         REAL*8 sigfl(lm0)     ! sigma levels of atmospheric model         REAL*8 sigfl(lm0)     ! sigma levels of atmospheric model
41         REAL*8 qyz4ocean(jm0,lm0)  ! atmos mixing ratio structure (kg/kg)         REAL*8 qyz4ocean(jm0,lm0)  ! atmos mixing ratio structure (kg/kg)
42         REAL*8 tyz4ocean(jm0,lm0)  ! atmos temp structure (K)         REAL*8 tyz4ocean(jm0,lm0)  ! atmos temp structure (K)
43          
44        COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb,        COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb,
45  &                   mmicem, mmtice1, mmtice2, mmsnowm       &              mmicem, mmtice1, mmtice2, mmsnowm
46         REAL*8 mmsst(jm0)    ! zonal mean SST (C)         REAL*8 mmsst(jm0)    ! zonal mean SST (C)
47         REAL*8 mmfice(jm0)   ! fraction of ocean area with seaice cover         REAL*8 mmfice(jm0)   ! fraction of ocean area with seaice cover
48         REAL*8 mmtice(jm0)   ! zonal mean seaice TSurf (C)         REAL*8 mmtice(jm0)   ! zonal mean seaice TSurf (C)
49         REAL*8 mmco2flux(jm0)! total ocean->atmos CO2 flux (units?)         REAL*8 mmco2flux(jm0)! total ocean->atmos CO2 flux (mol/s for latitude band)
50         REAL*8 cflan(jm0)    ! fraction of land in latitude circle         REAL*8 cflan(jm0)    ! fraction of land in latitude circle
51         REAL*8 mmsAlb(jm0)   ! zonal mean seaice albedo         REAL*8 mmsAlb(jm0)   ! zonal mean seaice albedo
52         REAL*8 mmicem(jm0)         REAL*8 mmicem(jm0)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22