1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_forcing.h,v 1.1 2002/11/22 17:16:06 jmc Exp $ |
2 |
C $Name: $ |
3 |
C $Namer: $ |
4 |
|
5 |
#ifdef ALLOW_AIM |
6 |
|
7 |
C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC) |
8 |
C fmask1 - fractional land-sea mask |
9 |
c_FM COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1 |
10 |
COMMON /LSMASK/ fmask1 |
11 |
_RL fmask1(NGP,MAX_NO_THREADS) |
12 |
c _RL fmask0(NGP,MAX_NO_THREADS) |
13 |
c _RL fmasko1(NGP,MAX_NO_THREADS) |
14 |
c _RL fmaskl1(NGP,MAX_NO_THREADS) |
15 |
|
16 |
C-- COMMON /FORFIX/ Time invariant forcing fields |
17 |
C (initial. in INFORC, except for phis0 initial. in INVARS) |
18 |
C phi0 - surface geopotential |
19 |
C phis0 - ? |
20 |
C alb0 - land-surface albedo |
21 |
c_FM COMMON /FORFIX/ phi0, phis0, alb0 |
22 |
_RL phi0 (NGP) |
23 |
c _RL phis0 (NGP) |
24 |
c _RL alb0 (NGP,MAX_NO_THREADS) |
25 |
|
26 |
C-- COMMON /FORMON/ Monthly-mean forcing fields (initial. in INFORC) |
27 |
c common /FORMON/ sst12(ix,il,12), |
28 |
c & oice12(ix,il,12), |
29 |
c & stl12(ix,il,12), |
30 |
c & snow12(ix,il,12), |
31 |
c & soilw12(ix,il,12) |
32 |
|
33 |
C-- COMMON /FORDAY/ Daily forcing fields (updated in FORDATE) |
34 |
C sst1 - SST |
35 |
C oice1 - sea ice fraction |
36 |
C stl1 - land-surface temperature |
37 |
C snow1 - snow depth (mm water) |
38 |
C soilw1 - soil wetness (mm water) |
39 |
C alb1 - land-surface albedo |
40 |
c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
41 |
COMMON /FORDAY/ sst1, stl1, soilw1, alb1 |
42 |
_RL sst1 (NGP,MAX_NO_THREADS) |
43 |
c _RL oice1 (NGP,MAX_NO_THREADS) |
44 |
_RL stl1 (NGP,MAX_NO_THREADS) |
45 |
c _RL snow1 (NGP,MAX_NO_THREADS) |
46 |
_RL soilw1 (NGP,MAX_NO_THREADS) |
47 |
_RL alb1 (NGP,MAX_NO_THREADS) |
48 |
_RL oice1(NGP), snow1(NGP) |
49 |
|
50 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
51 |
#endif /* ALLOW_AIM */ |