/[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.4 - (hide annotations) (download)
Thu Jun 24 23:41:12 2004 UTC (19 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint57m_post, checkpoint57g_pre, checkpoint57s_post, checkpoint58b_post, checkpoint57b_post, checkpoint57g_post, checkpoint56b_post, checkpoint57y_post, checkpoint54d_post, checkpoint54e_post, checkpoint57r_post, checkpoint57d_post, checkpoint57i_post, checkpoint59, checkpoint58, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58a_post, checkpoint57z_post, checkpoint54f_post, checkpoint62a, checkpoint58y_post, checkpoint58t_post, checkpoint55i_post, checkpoint58m_post, checkpoint57l_post, checkpoint57t_post, checkpoint55c_post, checkpoint57v_post, checkpoint57f_post, checkpoint60, checkpoint61, checkpoint62, checkpoint57a_post, checkpoint57h_pre, checkpoint54b_post, checkpoint58w_post, checkpoint57h_post, checkpoint57y_pre, checkpoint55g_post, checkpoint58o_post, checkpoint57c_post, checkpoint58p_post, checkpoint58q_post, checkpoint55d_post, checkpoint58e_post, checkpoint54a_pre, checkpoint55d_pre, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint54a_post, checkpoint55h_post, checkpoint58n_post, checkpoint57e_post, checkpoint55b_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint53g_post, checkpoint57p_post, checkpint57u_post, checkpoint57q_post, eckpoint57e_pre, checkpoint58k_post, checkpoint58v_post, checkpoint56a_post, checkpoint58l_post, checkpoint53f_post, checkpoint57h_done, checkpoint57j_post, checkpoint57f_pre, checkpoint61f, checkpoint58g_post, checkpoint58x_post, checkpoint61n, checkpoint58h_post, checkpoint56c_post, checkpoint58j_post, checkpoint57a_pre, checkpoint55a_post, checkpoint57o_post, checkpoint61q, checkpoint57k_post, checkpoint61z, checkpoint57w_post, checkpoint61e, checkpoint58i_post, checkpoint57x_post, checkpoint58c_post, checkpoint58u_post, checkpoint58s_post, checkpoint55e_post, checkpoint61g, checkpoint61d, checkpoint54c_post, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61x, checkpoint61y
Changes since 1.3: +4 -2 lines
File MIME type: text/plain
- include stability function into surf.Flux derivative relative to Ts
- calculate clear-sky radiation & surface temp. change
- update diagnostics (snap-shot, timeave & diagnostics)

1 jmc 1.4 C $Header: /u/gcmpack/MITgcm/pkg/aim_v23/com_forcing.h,v 1.3 2004/03/11 14:33:19 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.4 C dTsurf - surface temperature changes form 1 it to the next one
42 jmc 1.2 c COMMON /FORDAY/ sst1, oice1, stl1, snow1, soilw1, alb1
43 jmc 1.4 COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf
44 jmc 1.1 _RL sst1 (NGP,MAX_NO_THREADS)
45 jmc 1.2 c _RL oice1 (NGP,MAX_NO_THREADS)
46 jmc 1.3 _RL sti1 (NGP,MAX_NO_THREADS)
47 jmc 1.1 _RL stl1 (NGP,MAX_NO_THREADS)
48 jmc 1.2 c _RL snow1 (NGP,MAX_NO_THREADS)
49 jmc 1.1 _RL soilw1 (NGP,MAX_NO_THREADS)
50 jmc 1.3 _RL alb1 (NGP,0:3,MAX_NO_THREADS)
51 jmc 1.4 _RL dTsurf (NGP,3,MAX_NO_THREADS)
52 jmc 1.2 _RL oice1(NGP), snow1(NGP)
53 jmc 1.1
54     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
55     #endif /* ALLOW_AIM */

  ViewVC Help
Powered by ViewVC 1.1.22