| 1 |
C $Header: $ |
| 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 |
COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
| 41 |
_RL sst1 (NGP,MAX_NO_THREADS) |
| 42 |
_RL oice1 (NGP,MAX_NO_THREADS) |
| 43 |
_RL stl1 (NGP,MAX_NO_THREADS) |
| 44 |
_RL snow1 (NGP,MAX_NO_THREADS) |
| 45 |
_RL soilw1 (NGP,MAX_NO_THREADS) |
| 46 |
_RL alb1 (NGP,MAX_NO_THREADS) |
| 47 |
|
| 48 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 49 |
#endif /* ALLOW_AIM */ |
Parent Directory
| 
Revision Log
| 
Revision Graph