forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
AGRID.h
72 lines (61 loc) · 3.37 KB
/
AGRID.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
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