C--   /LSMASK/ land-sea masks 
      _RL fmask1(ngp)
      common /LSMASK/ fmask1	! fractional land-sea mask

C--   /FORFIX/ Time invariant forcing fields 
      _RL phi0(ngp), alb0(ngp)
      common /FORFIX/ phi0,	! surface geopotential
     .                alb0	! land-surface albedo

C--   /FORCIN/ Forcing fields 
      _RL sst1(ngp), oice1(ngp), stl1(ngp), snow1(ngp), soilq1(ngp)
      _RL SST_REF(ngp), STL_REF(ngp), BUCKET(ngp)
      _RL QFLUX(ngp), QSTAR(ngp), QOCEAN(ngp)
      common /FORCIN/ sst1,	! SST
     .                SST_REF,  ! Reference SST profile
     .                STL_REF,  ! Reference STL profile
     .                oice1,	! sea ice fraction
     .                stl1,	! land-surface temperature
     .                snow1,	! snow depth (mm water)
     .                soilq1,	! soil wetness (mm water)
     .                BUCKET,	! water content of soil (in cm)
     .                QFLUX,	! total forcing (=QSTAR+QOCEAN) of the SST/STL slab (in Wm-2)
     .                QSTAR,	! `radiative' part of the QFLUX (in Wm-2)
     .                QOCEAN	! `ocean dynamical' part of the QFLUX (in Wm-2)

C      $Id: com_forcing1.h,v 1.1 2003/08/20 15:24:59 czaja Exp $