forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ATMVARS.h
93 lines (80 loc) · 4.18 KB
/
ATMVARS.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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/ATMVARS.h,v 1.8 2016/01/06 00:28:14 jmc Exp $
C $Name: $
C *==========================================================*
C | ATMVARS.h Declare arrays for holding data on the atmos.
C | grid. Arrays may need adding or removing
C | different couplings.
C *==========================================================*
C landMask_atm :: Atmosphere land mask (=1 : full land grid-point;
C =0 : full ocean grid-point);
C-- fields send to ATM:
C OcMxlD_atm :: Ocean mixed-layer depths on atmos. grid (m)
C SST_atm :: Sea surface temperature on atmos. grid ( oC).
C SSS_atm :: Sea surface temperature on atmos. grid (psu).
C vSq_atm :: Sea surface velocity square on atmos. grid (m2/s2)
C- optionally sent:
C fluxCO2_atm :: flux of CO2 from ocn->Atm on atmos. grid (mol/m2/s)
C-- fields received from ATM:
C atmSLPr_atm :: Sea Level atmos. pressure on atmos. grid (Pa)
C HeatFlux_atm :: net Heat flux on atmos. grid (W/m2, +=upward)
C qShortWave_atm :: net shortwave radiation on atmos. grid (W/m2, +=upward)
C TauX_atm :: Zonal momentum flux on atmos. grid ( N/m^2, same
C sign as the wind ; positive wind == westward flow)
C TauY_atm :: Meridional momentum flux on atmos. grid ( N/m^2, same
C sign as the wind ; positive wind == northward flow)
C EvMPr_atm :: Fresh water flux (=Evap-Precip) on atmos. grid
C ( kg/m2/s, positive into atmosphere).
C- optionally received:
C RunOff_atm :: Fresh water flux (=RunOff) on atmos. grid
C ( kg/m2/s, positive is leaving the land bucket)
C ROEnFx_atm :: Energy carried by RunOff on atmos. grid
C ( W/m2, +=leaving land bucket)
C SaltFlx_atm :: salt flux from seaice compon. on atmos. grid
C ( g/m2/s, +=upward=leaving the ocean)
C sIceMass_atm :: seaice mass on atmos. grid (kg/m2)
C saltPlmFlx_atm :: salt-plume flux on atmos. grid, for salt_plume pkg
C aCO2_atm :: atmos CO2 on atmos. grid (parts by volume)
C wSpeed_atm :: surface windspeed on atmos. grid (m/s)
C-- fields used for multiple purpose:
C sIceFrac_atm :: seaice fraction on atmos. grid
C-- fields sent to & received from ATM:
C sIceThick_atm :: seaice thickness [m] on atmos. grid
C sIceSnowH_atm :: snow thickness over seaice [m] on atmos. grid
C sIceQ1_atm :: seaice enthalpy of ice layer 1 [J/kg] on atmos. grid
C sIceQ2_atm :: seaice enthalpy of ice layer 2 [J/kg] on atmos. grid
COMMON /ATMVARS_R/
& landMask_atm,
& OcMxlD_atm, SST_atm, SSS_atm, vSq_atm,
& fluxCO2_atm,
& atmSLPr_atm, HeatFlux_atm, qShortWave_atm,
& TauX_atm, TauY_atm, EvMPr_atm,
& RunOff_atm, ROEnFx_atm,
& SaltFlx_atm, sIceMass_atm, saltPlmFlx_atm,
& aCO2_atm, wSpeed_atm,
& sIceFrac_atm,
& sIceThick_atm, sIceSnowH_atm, sIceQ1_atm, sIceQ2_atm
_RL landMask_atm (Nx_atm,Ny_atm)
_RL OcMxlD_atm (Nx_atm,Ny_atm)
_RL SST_atm (Nx_atm,Ny_atm)
_RL SSS_atm (Nx_atm,Ny_atm)
_RL vSq_atm (Nx_atm,Ny_atm)
_RL fluxCO2_atm (Nx_atm,Ny_atm)
_RL atmSLPr_atm (Nx_atm,Ny_atm)
_RL HeatFlux_atm (Nx_atm,Ny_atm)
_RL qShortWave_atm (Nx_atm,Ny_atm)
_RL TauX_atm (Nx_atm,Ny_atm)
_RL TauY_atm (Nx_atm,Ny_atm)
_RL EvMPr_atm (Nx_atm,Ny_atm)
_RL RunOff_atm (Nx_atm,Ny_atm)
_RL ROEnFx_atm (Nx_atm,Ny_atm)
_RL SaltFlx_atm (Nx_atm,Ny_atm)
_RL sIceMass_atm (Nx_atm,Ny_atm)
_RL saltPlmFlx_atm (Nx_atm,Ny_atm)
_RL aCO2_atm (Nx_atm,Ny_atm)
_RL wSpeed_atm (Nx_atm,Ny_atm)
_RL sIceFrac_atm (Nx_atm,Ny_atm)
_RL sIceThick_atm (Nx_atm,Ny_atm)
_RL sIceSnowH_atm (Nx_atm,Ny_atm)
_RL sIceQ1_atm (Nx_atm,Ny_atm)
_RL sIceQ2_atm (Nx_atm,Ny_atm)
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|