1 |
C $Header: /u/gcmpack/MITgcm/pkg/atm2d/AGRID.h,v 1.5 2007/11/19 19:51:06 jscott Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
COMMON/ATM_GRID/atm_yC,atm_yG |
5 |
REAL*4 atm_yC(jm0) ! center points of atmos grid |
6 |
REAL*4 atm_yG(jm0) ! southern boundary of atmos grid cells |
7 |
|
8 |
COMMON/ATM2OCEAN/hfluxo,hfluxi,dhfodtg,dhfodtgeq, |
9 |
& dhfidtg,dhfidtgeq,precip,evao,evai,devodtg,devodtgeq, |
10 |
& devidtg,devidtgeq,tauu,tauv,arunoff,solarinc_ice,solarnet_ice, |
11 |
& solarinc_ocean,solarnet_ocean,wsocean,co24ocean,ps4ocean,tempr |
12 |
|
13 |
REAL*8 hfluxo(jm0) ! ocean surf. heat flux (W/m2) (+=downward) |
14 |
REAL*8 hfluxi(jm0) ! seaice surf. heat flux (W/m2) (+=downward) |
15 |
REAL*8 dhfodtg(jm0) ! dF/dT ocean, consistent with above units (-) |
16 |
REAL*8 dhfodtgeq(jm0) ! dF/dT ocean, alternative formulation |
17 |
REAL*8 dhfidtg(jm0) ! dF/dT seaice |
18 |
REAL*8 dhfidtgeq(jm0) ! dF/dT seaice alternative formulation |
19 |
REAL*8 precip(jm0) ! precip (mm/day) (+=into ocean) |
20 |
REAL*8 evao(jm0) ! ocean evap. (mm/day) (+=out of ocean) |
21 |
REAL*8 evai(jm0) ! seaice evap. (mm/day) (+=out of ocean) |
22 |
REAL*8 devodtg(jm0) ! dL/dT ocean, consistent with above units (+) |
23 |
REAL*8 devodtgeq(jm0) ! dL/dT ocean, alternative formulation |
24 |
REAL*8 devidtg(jm0) ! dL/dT ice |
25 |
REAL*8 devidtgeq(jm0) ! dL/dT ice, alternative formulation |
26 |
REAL*8 tauu(jm0) ! zonal mom flux at lower boundary (N/m2) |
27 |
REAL*8 tauv(jm0) ! merid. mom flux at lower boundary (N/m2) |
28 |
REAL*8 arunoff(jm0) ! runoff (kg/day) (+=into ocean) |
29 |
REAL*8 solarinc_ice(jm0) ! solar incoming (+=into ocean) |
30 |
REAL*8 solarnet_ice(jm0) ! net solar radation to ice (not used) |
31 |
REAL*8 solarinc_ocean(jm0) ! solar incoming (+=into ocean)(unused) |
32 |
REAL*8 solarnet_ocean(jm0) ! net radiation solar to ocean |
33 |
REAL*8 wsocean(jm0) ! windspeed at ocean surface (m/s) |
34 |
REAL*8 co24ocean(jm0) ! atmospheric CO2 (ppm) |
35 |
REAL*8 ps4ocean(jm0) ! surf pres (mb), to be normalized to sea level |
36 |
REAL*8 tempr(jm0) ! precipitation temp (used over seaice) (C) |
37 |
|
38 |
|
39 |
COMMON/ATM_PROF/sigfl,qyz4ocean,tyz4ocean |
40 |
REAL*8 sigfl(lm0) ! sigma levels of atmospheric model |
41 |
REAL*8 qyz4ocean(jm0,lm0) ! atmos mixing ratio structure (kg/kg) |
42 |
REAL*8 tyz4ocean(jm0,lm0) ! atmos temp structure (K) |
43 |
|
44 |
COMMON/OCDATA/mmsst,mmfice,mmtice,mmco2flux,cflan,mmsAlb, |
45 |
& mmsAlbNIR, mmicem, mmtice1, mmtice2, mmsnowm |
46 |
REAL*8 mmsst(jm0) ! zonal mean SST (C) |
47 |
REAL*8 mmfice(jm0) ! fraction of ocean area with seaice cover |
48 |
REAL*8 mmtice(jm0) ! zonal mean seaice TSurf (C) |
49 |
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 |
51 |
REAL*8 mmsAlb(jm0) ! zonal mean visual seaice albedo |
52 |
REAL*8 mmsAlbNIR(jm0) ! zonal mean near IR seaice albedo |
53 |
REAL*8 mmicem(jm0) |
54 |
REAL*8 mmtice1(jm0) |
55 |
REAL*8 mmtice2(jm0) |
56 |
REAL*8 mmsnowm(jm0) |
57 |
|
58 |
#ifdef ML_2D |
59 |
common/OCEAN2ATM/osst(jm0),aoice(jm0),foice(jm0), |
60 |
& snowice(jm0),tice1(jm0),tice2(jm0) |
61 |
|
62 |
common /TIME4ML/TOFDAYML,TAUML,IDAYM,JDAYM,JMONTHM,JYEARM,KOCEANM |
63 |
& ,JDATEM |
64 |
character *4 JMONTHM |
65 |
|
66 |
common/mltemp/osst2(jm0),osst3(jm0),rseaice(jm0) |
67 |
& ,CLAND4OCEAN(io0,jm0) |
68 |
common/atmnth/nmonth |
69 |
character *4 nmonth |
70 |
|
71 |
#endif |
72 |
|