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

Contents of /MITgcm/pkg/aim_v23/com_physcon.h

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

Revision 1.1 - (show annotations) (download)
Fri Nov 22 17:16:06 2002 UTC (21 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint47e_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint50c_post, checkpoint52d_pre, checkpoint48e_post, checkpoint50c_pre, checkpoint52j_pre, checkpoint51o_pre, checkpoint51l_post, checkpoint48i_post, checkpoint50d_pre, checkpoint52k_post, checkpoint51, checkpoint50, checkpoint52, checkpoint50d_post, checkpoint52f_post, checkpoint50b_pre, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint51n_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint47d_post, checkpoint48d_post, checkpoint48f_post, checkpoint52b_pre, checkpoint51l_pre, checkpoint48h_post, checkpoint51q_post, checkpoint51b_pre, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52f_pre, checkpoint47j_post, branch-exfmods-tag, branchpoint-genmake2, checkpoint51r_post, checkpoint48c_post, checkpoint51i_post, checkpoint51b_post, checkpoint51c_post, checkpoint47b_post, checkpoint52d_post, checkpoint50g_post, checkpoint52a_pre, checkpoint50h_post, checkpoint52i_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint52j_post, checkpoint47f_post, checkpoint50e_post, branch-netcdf, checkpoint51e_post, checkpoint48, checkpoint49, checkpoint51o_post, checkpoint51f_pre, checkpoint47h_post, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint50b_post, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post, checkpoint48g_post, checkpoint51u_post
Branch point for: branch-exfmods-curt, branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
File MIME type: text/plain 
new aim pkg: adapted from Franco Molteni SPEEDY code, ver23
1 C $Header: $
2 C $Name: $
3
4 #ifdef ALLOW_AIM
5
6 C-- COMMON /PHYCON/: Physical constants (initial. in INPHYS)
7 C P0 = reference pressure
8 C GG = gravity accel.
9 C RD = gas constant for dry air
10 C CP = specific heat at constant pressure
11 C ALHC = latent heat of condensation
12 C SBC = Stefan-Boltzmann constant
13 COMMON /PHYCON/ P0, GG, RD, CP, ALHC, SBC
14 _RL P0, GG, RD, CP, ALHC, SBC
15
16 C-- COMMON /FSIGLT/: Functions of sigma and latitude (initial. in INPHYS)
17 C (execpt SLAT & CLAT init. in aim_dyn2aim.F)
18 C SIG = full-level sigma
19 C SIGL = logarithm of full-level sigma
20 C SIGH = half-level sigma
21 C DSIG = layer depth in sigma
22 C POUT = norm. pressure level [p/p0] for post-processing
23 C GRDSIG = g/(d_sigma p0) : to convert fluxes of u,v,q into d(u,v,q)/dt
24 C GRDSCP = g/(d_sigma p0 c_p): to convert energy fluxes into dT/dt
25 C WVI = weights for vertical interpolation
26 c SLAT = sin(lat)
27 c CLAT = cos(lat)
28 COMMON /FSIGLT/
29 & SIG, SIGL, SIGH, DSIG, GRDSIG, GRDSCP, WVI
30 c & SIG, SIGL, SIGH, DSIG, POUT, GRDSIG, GRDSCP, WVI, SLAT, CLAT
31 _RL SIG(NLEV)
32 _RL SIGL(NLEV)
33 _RL SIGH(0:NLEV)
34 _RL DSIG(NLEV)
35 c _RL POUT(NLEV)
36 _RL GRDSIG(NLEV)
37 _RL GRDSCP(NLEV)
38 _RL WVI(NLEV,2)
39 c _RL SLAT(NLAT)
40 c _RL CLAT(NLAT)
41
42 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
43 #endif /* ALLOW_AIM */
  ViewVC Help
Powered by ViewVC 1.1.22