1 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_forcing.h,v 1.3 2004/03/11 14:33:19 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_AIM |
5 |
|
6 |
C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC) |
7 |
C fmask1 - fractional land / sea / sea-ice mask |
8 |
C 1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1. |
9 |
c_FM COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1 |
10 |
COMMON /LSMASK/ fmask1 |
11 |
_RL fmask1(NGP,3,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 sti1 - sea-ice surface temperature [K] |
37 |
C stl1 - land-surface temperature [K] |
38 |
C snow1 - snow depth (mm water) |
39 |
C soilw1 - soil wetness (mm water) |
40 |
C alb1 - surface albedo (1:land, 2:ocean, 3:sea-ice, 0:average) |
41 |
C dTsurf - surface temperature changes form 1 it to the next one |
42 |
c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
43 |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
44 |
_RL sst1 (NGP,MAX_NO_THREADS) |
45 |
c _RL oice1 (NGP,MAX_NO_THREADS) |
46 |
_RL sti1 (NGP,MAX_NO_THREADS) |
47 |
_RL stl1 (NGP,MAX_NO_THREADS) |
48 |
c _RL snow1 (NGP,MAX_NO_THREADS) |
49 |
_RL soilw1 (NGP,MAX_NO_THREADS) |
50 |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |
51 |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
52 |
_RL oice1(NGP), snow1(NGP) |
53 |
|
54 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
55 |
#endif /* ALLOW_AIM */ |