/[MITgcm]/MITgcm/pkg/aim_v23/com_forcing.h
ViewVC logotype

Annotation of /MITgcm/pkg/aim_v23/com_forcing.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.3 - (hide annotations) (download)
Thu Mar 11 14:33:19 2004 UTC (20 years, 2 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint53, checkpoint53d_post, checkpoint52m_post, checkpoint53c_post, checkpoint53a_post, checkpoint52l_post, checkpoint52n_post, checkpoint53b_pre, checkpoint53b_post, checkpoint53d_pre
Changes since 1.2: +10 -8 lines
File MIME type: text/plain 
a) Treat separately land / ocean / sea-ice surface fluxes
   to allow implicit computation of land & sea-ice surface temp.
b) add snow precipitation
c) other (little) modifications for new land formulation.
1 jmc 1.3 C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_forcing.h,v 1.2 2002/12/10 02:35:27 jmc Exp $
2 jmc 1.1 C $Name: $
3    
4     #ifdef ALLOW_AIM
5    
6     C-- COMMON /LSMASK/ land-sea masks (initial. in INFORC)
7 jmc 1.3 C fmask1 - fractional land / sea / sea-ice mask
8     C 1:land fraction ; 2:ice-free ocean ; 3:sea-ice frac.; (1)+(2)+(3)=1.
9 jmc 1.1 c_FM COMMON /LSMASK/ fmask1, fmask0, fmasko1, fmaskl1
10     COMMON /LSMASK/ fmask1
11 jmc 1.3 _RL fmask1(NGP,3,MAX_NO_THREADS)
12 jmc 1.1 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 jmc 1.3 C sti1 - sea-ice surface temperature [K]
37     C stl1 - land-surface temperature [K]
38 jmc 1.1 C snow1 - snow depth (mm water)
39     C soilw1 - soil wetness (mm water)
40 jmc 1.3 C alb1 - surface albedo (1:land, 2:ocean, 3:sea-ice, 0:average)
41 jmc 1.2 c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1
42 jmc 1.3 COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1
43 jmc 1.1 _RL sst1 (NGP,MAX_NO_THREADS)
44 jmc 1.2 c _RL oice1 (NGP,MAX_NO_THREADS)
45 jmc 1.3 _RL sti1 (NGP,MAX_NO_THREADS)
46 jmc 1.1 _RL stl1 (NGP,MAX_NO_THREADS)
47 jmc 1.2 c _RL snow1 (NGP,MAX_NO_THREADS)
48 jmc 1.1 _RL soilw1 (NGP,MAX_NO_THREADS)
49 jmc 1.3 _RL alb1 (NGP,0:3,MAX_NO_THREADS)
50 jmc 1.2 _RL oice1(NGP), snow1(NGP)
51 jmc 1.1
52     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
53     #endif /* ALLOW_AIM */
  ViewVC Help
Powered by ViewVC 1.1.22