| 1 |
jmc |
1.5 |
C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_forcing.h,v 1.4 2004/06/24 23:41:12 jmc Exp $ |
| 2 |
jmc |
1.1 |
C $Name: $ |
| 3 |
|
|
|
| 4 |
|
|
#ifdef ALLOW_AIM |
| 5 |
|
|
|
| 6 |
jmc |
1.5 |
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 |
jmc |
1.1 |
C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC) |
| 11 |
jmc |
1.3 |
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. |
| 13 |
jmc |
1.1 |
c_FM COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1 |
| 14 |
|
|
COMMON /LSMASK/ fmask1 |
| 15 |
jmc |
1.3 |
_RL fmask1(NGP,3,MAX_NO_THREADS) |
| 16 |
jmc |
1.1 |
c _RL fmask0(NGP,MAX_NO_THREADS) |
| 17 |
|
|
c _RL fmasko1(NGP,MAX_NO_THREADS) |
| 18 |
|
|
c _RL fmaskl1(NGP,MAX_NO_THREADS) |
| 19 |
|
|
|
| 20 |
jmc |
1.5 |
C-- COMMON /FORFIX/ Time invariant forcing fields |
| 21 |
jmc |
1.1 |
C (initial. in INFORC, except for phis0 initial. in INVARS) |
| 22 |
|
|
C phi0 - surface geopotential |
| 23 |
|
|
C phis0 - ? |
| 24 |
|
|
C alb0 - land-surface albedo |
| 25 |
|
|
c_FM COMMON /FORFIX/ phi0, phis0, alb0 |
| 26 |
jmc |
1.5 |
cL _RL phi0 (NGP) |
| 27 |
jmc |
1.1 |
c _RL phis0 (NGP) |
| 28 |
|
|
c _RL alb0 (NGP,MAX_NO_THREADS) |
| 29 |
|
|
|
| 30 |
|
|
C-- COMMON /FORMON/ Monthly-mean forcing fields (initial. in INFORC) |
| 31 |
|
|
c common /FORMON/ sst12(ix,il,12), |
| 32 |
|
|
c & oice12(ix,il,12), |
| 33 |
|
|
c & stl12(ix,il,12), |
| 34 |
|
|
c & snow12(ix,il,12), |
| 35 |
|
|
c & soilw12(ix,il,12) |
| 36 |
|
|
|
| 37 |
|
|
C-- COMMON /FORDAY/ Daily forcing fields (updated in FORDATE) |
| 38 |
|
|
C sst1 - SST |
| 39 |
|
|
C oice1 - sea ice fraction |
| 40 |
jmc |
1.3 |
C sti1 - sea-ice surface temperature [K] |
| 41 |
|
|
C stl1 - land-surface temperature [K] |
| 42 |
jmc |
1.1 |
C snow1 - snow depth (mm water) |
| 43 |
|
|
C soilw1 - soil wetness (mm water) |
| 44 |
jmc |
1.3 |
C alb1 - surface albedo (1:land, 2:ocean, 3:sea-ice, 0:average) |
| 45 |
jmc |
1.4 |
C dTsurf - surface temperature changes form 1 it to the next one |
| 46 |
jmc |
1.2 |
c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1 |
| 47 |
jmc |
1.4 |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
| 48 |
jmc |
1.1 |
_RL sst1 (NGP,MAX_NO_THREADS) |
| 49 |
jmc |
1.5 |
cL _RL oice1 (NGP,MAX_NO_THREADS) |
| 50 |
jmc |
1.3 |
_RL sti1 (NGP,MAX_NO_THREADS) |
| 51 |
jmc |
1.1 |
_RL stl1 (NGP,MAX_NO_THREADS) |
| 52 |
jmc |
1.5 |
cL _RL snow1 (NGP,MAX_NO_THREADS) |
| 53 |
jmc |
1.1 |
_RL soilw1 (NGP,MAX_NO_THREADS) |
| 54 |
jmc |
1.3 |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |
| 55 |
jmc |
1.4 |
_RL dTsurf (NGP,3,MAX_NO_THREADS) |
| 56 |
jmc |
1.1 |
|
| 57 |
|
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 58 |
jmc |
1.5 |
#endif /* ALLOW_AIM */ |
Parent Directory
| 
Revision Log
| 
Revision Graph