3 |
C $Namer: $ |
C $Namer: $ |
4 |
|
|
5 |
C-- /LSMASK/ land-sea masks |
C-- /LSMASK/ land-sea masks |
6 |
common /LSMASK/ fmask1(ngp) ! fractional land-sea mask |
common /LSMASK/ fmask1(ngp,MAX_NO_THREADS) ! fractional land-sea mask |
7 |
|
|
8 |
C-- /FORFIX/ Time invariant forcing fields |
C-- /FORFIX/ Time invariant forcing fields |
9 |
common /FORFIX/ phi0(ngp), ! surface geopotential |
common /FORFIX/ phi0(ngp,MAX_NO_THREADS), ! surface geopotential |
10 |
. alb0(ngp) ! land-surface albedo |
. alb0(ngp,MAX_NO_THREADS) ! land-surface albedo |
11 |
|
|
12 |
C-- /FORCIN/ Forcing fields |
C-- /FORCIN/ Forcing fields |
13 |
common /FORCIN/ sst1(ngp), ! SST |
common /FORCIN/ sst1(ngp,MAX_NO_THREADS), ! SST |
14 |
. oice1(ngp), ! sea ice fraction |
. oice1(ngp,MAX_NO_THREADS), ! sea ice fraction |
15 |
. stl1(ngp), ! land-surface temperature |
. stl1(ngp,MAX_NO_THREADS), ! land-surface temperature |
16 |
. snow1(ngp), ! snow depth (mm water) |
. snow1(ngp,MAX_NO_THREADS), ! snow depth (mm water) |
17 |
. soilq1(ngp) ! soil wetness (mm water) |
. soilq1(ngp,MAX_NO_THREADS) ! soil wetness (mm water) |