forked from altMITgcm/MITgcm
-
Notifications
You must be signed in to change notification settings - Fork 0
/
OCNVARS.h
66 lines (62 loc) · 3.14 KB
/
OCNVARS.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
C $Header: /u/gcmpack/MITgcm/pkg/atm2d/OCNVARS.h,v 1.4 2013/12/02 23:54:43 jmc Exp $
C $Name: $
C *==========================================================*
C | OCNVARS.h Declare arrays for holding data on the ocean
C | grid. Arrays may need adding or removing
C | different couplings.
C *==========================================================*
C landMask_ocn :: Atmosphere land mask (=1 : full land grid-point;
C =0 : full ocean grid-point);
C OcMxlD_ocn ::- Ocean mixed-layer depths on ocean grid (m)
C SST_ocn :: Sea surface temperature on ocean grid ( oC).
C SSS_ocn :: Sea surface temperature on ocean grid (psu).
C vSq_ocn :: Sea surface velocity square on ocean grid (m2/s2)
C fluxCO2_ocn :: flux of CO2 from ocn->Atm on ocean grid (mol/m2/s)
C atmSLPr_ocn :: Sea Level atmos. pressure on ocean grid (Pa)
C HeatFlux_ocn :: net Heat flux on ocean grid (W/m2, +=upward)
C qShortWave_ocn :: net shortwave radiation on ocean grid (W/m2, +=upward)
C TauX_ocn :: Zonal momentum flux on ocean grid ( N/m^2, same
C sign as the wind ; positive wind == westward flow)
C TauY_ocn :: Meridional momentum flux on ocean grid ( N/m^2, same
C sign as the wind ; positive wind == northward flow)
C FWFlux_ocn :: Fresh water flux on ocean grid
C ( kg/m2/s, positive out of ocean).
C SaltFlx_ocn :: salt flux from sea-ice compon. on ocean grid
C ( g/m2/s, +=upward=leaving the ocean)
C sIceMass_ocn :: sea-ice mass on ocean grid (kg/m2)
C aCO2_ocn :: atmos CO2 on ocean grid (parts by volume)
C wSpeed_ocn :: surface windspeed on ocean grid (m/s)
C sIceFrac_ocn :: sea-ice fraction on ocean grid
COMMON /OCNVARS_R/
& landMask_ocn,
& OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn,
& fluxCO2_ocn,
& atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn,
c & qLatent_ocn, qSensible_ocn, qLongWave_ocn,
c & uVelGround_ocn, vVelGround_ocn,
& TauX_ocn, TauY_ocn,
& FWFlux_ocn,
& SaltFlx_ocn, sIceMass_ocn,
& aCO2_ocn, wSpeed_ocn, sIceFrac_ocn
_RL landMask_ocn (Nx_ocn,Ny_ocn)
_RL OcMxlD_ocn (Nx_ocn,Ny_ocn)
_RL SST_ocn (Nx_ocn,Ny_ocn)
_RL SSS_ocn (Nx_ocn,Ny_ocn)
_RL vSq_ocn (Nx_ocn,Ny_ocn)
_RL fluxCO2_ocn (Nx_ocn,Ny_ocn)
_RL atmSLPr_ocn (Nx_ocn,Ny_ocn)
_RL HeatFlux_ocn (Nx_ocn,Ny_ocn)
_RL qShortWave_ocn (Nx_ocn,Ny_ocn)
c _RL qLatent_ocn (Nx_ocn,Ny_ocn)
c _RL qSensible_ocn (Nx_ocn,Ny_ocn)
c _RL qLongWave_ocn (Nx_ocn,Ny_ocn)
c _RL uVelGround_ocn (Nx_ocn,Ny_ocn)
c _RL vVelGround_ocn (Nx_ocn,Ny_ocn)
_RL TauX_ocn (Nx_ocn,Ny_ocn)
_RL TauY_ocn (Nx_ocn,Ny_ocn)
_RL FWFlux_ocn (Nx_ocn,Ny_ocn)
_RL SaltFlx_ocn (Nx_ocn,Ny_ocn)
_RL sIceMass_ocn (Nx_ocn,Ny_ocn)
_RL aCO2_ocn (Nx_ocn,Ny_ocn)
_RL wSpeed_ocn (Nx_ocn,Ny_ocn)
_RL sIceFrac_ocn (Nx_ocn,Ny_ocn)