| 1 |
C-- /LSMASK/ land-sea masks |
| 2 |
_RL fmask1(ngp) |
| 3 |
common /LSMASK/ fmask1 ! fractional land-sea mask |
| 4 |
|
| 5 |
C-- /FORFIX/ Time invariant forcing fields |
| 6 |
_RL phi0(ngp), alb0(ngp) |
| 7 |
common /FORFIX/ phi0, ! surface geopotential |
| 8 |
. alb0 ! land-surface albedo |
| 9 |
|
| 10 |
C-- /FORCIN/ Forcing fields |
| 11 |
_RL sst1(ngp), oice1(ngp), stl1(ngp), snow1(ngp), soilq1(ngp) |
| 12 |
_RL SST_REF(ngp), STL_REF(ngp), BUCKET(ngp) |
| 13 |
_RL QFLUX(ngp), QSTAR(ngp), QOCEAN(ngp) |
| 14 |
common /FORCIN/ sst1, ! SST |
| 15 |
. SST_REF, ! Reference SST profile |
| 16 |
. STL_REF, ! Reference STL profile |
| 17 |
. oice1, ! sea ice fraction |
| 18 |
. stl1, ! land-surface temperature |
| 19 |
. snow1, ! snow depth (mm water) |
| 20 |
. soilq1, ! soil wetness (mm water) |
| 21 |
. BUCKET, ! water content of soil (in cm) |
| 22 |
. QFLUX, ! total forcing (=QSTAR+QOCEAN) of the SST/STL slab (in Wm-2) |
| 23 |
. QSTAR, ! `radiative' part of the QFLUX (in Wm-2) |
| 24 |
. QOCEAN ! `ocean dynamical' part of the QFLUX (in Wm-2) |
| 25 |
|
| 26 |
C $Id: com_forcing1.h,v 1.2 2000/06/26 23:41:16 cnh Exp $ |
Parent Directory
| 
Revision Log
| 
Revision Graph