3 |
|
|
4 |
#ifdef ALLOW_AIM |
#ifdef ALLOW_AIM |
5 |
|
|
6 |
|
C-- Note: Variables which do not need to stay in common block (local var) |
7 |
|
C are declare locally in each S/R that use them (commented with "cL"); |
8 |
|
C Some variables are not needed at all (commented with single "c"). |
9 |
|
|
10 |
C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC) |
C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC) |
11 |
C fmask1 - fractional land / sea / sea-ice mask |
C fmask1 - fractional land / sea / sea-ice mask |
12 |
C 1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1. |
C 1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1. |
17 |
c _RL fmasko1(NGP,MAX_NO_THREADS) |
c _RL fmasko1(NGP,MAX_NO_THREADS) |
18 |
c _RL fmaskl1(NGP,MAX_NO_THREADS) |
c _RL fmaskl1(NGP,MAX_NO_THREADS) |
19 |
|
|
20 |
C-- COMMON /FORFIX/ Time invariant forcing fields |
C-- COMMON /FORFIX/ Time invariant forcing fields |
21 |
C (initial. in INFORC, except for phis0 initial. in INVARS) |
C (initial. in INFORC, except for phis0 initial. in INVARS) |
22 |
C phi0 - surface geopotential |
C phi0 - surface geopotential |
23 |
C phis0 - ? |
C phis0 - ? |
24 |
C alb0 - land-surface albedo |
C alb0 - land-surface albedo |
25 |
c_FM COMMON /FORFIX/ phi0, phis0, alb0 |
c_FM COMMON /FORFIX/ phi0, phis0, alb0 |
26 |
_RL phi0 (NGP) |
cL _RL phi0 (NGP) |
27 |
c _RL phis0 (NGP) |
c _RL phis0 (NGP) |
28 |
c _RL alb0 (NGP,MAX_NO_THREADS) |
c _RL alb0 (NGP,MAX_NO_THREADS) |
29 |
|
|
46 |
c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
47 |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
48 |
_RL sst1 (NGP,MAX_NO_THREADS) |
_RL sst1 (NGP,MAX_NO_THREADS) |
49 |
c _RL oice1 (NGP,MAX_NO_THREADS) |
cL _RL oice1 (NGP,MAX_NO_THREADS) |
50 |
_RL sti1 (NGP,MAX_NO_THREADS) |
_RL sti1 (NGP,MAX_NO_THREADS) |
51 |
_RL stl1 (NGP,MAX_NO_THREADS) |
_RL stl1 (NGP,MAX_NO_THREADS) |
52 |
c _RL snow1 (NGP,MAX_NO_THREADS) |
cL _RL snow1 (NGP,MAX_NO_THREADS) |
53 |
_RL soilw1 (NGP,MAX_NO_THREADS) |
_RL soilw1 (NGP,MAX_NO_THREADS) |
54 |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |
55 |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
|
_RL oice1(NGP), snow1(NGP) |
|
56 |
|
|
57 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
58 |
#endif /* ALLOW_AIM */ |
#endif /* ALLOW_AIM */ |