/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/CLM.COM
ViewVC logotype

Contents of /MITgcm_contrib/jscott/igsm/inc/CLM.COM

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


Revision 1.2 - (show annotations) (download)
Mon Apr 23 21:44:35 2007 UTC (18 years, 3 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
update include files

1 parameter(lsmlon=1,lsmlat=N_LAT,nlevsoi=10)
2 common/mit2din/ ps4clm (lsmlon,lsmlat),pcpl4clm (lsmlon,lsmlat),
3 & pcpc4clm (lsmlon,lsmlat),tpr4clm (lsmlon,lsmlat),
4 & tsl4clm (lsmlon,lsmlat),
5 & qs4clm (lsmlon,lsmlat),ws4clm (lsmlon,lsmlat)
6 & ,us4clm (lsmlon,lsmlat),vs4clm (lsmlon,lsmlat),
7 & dsw4clm (lsmlon,lsmlat),
8 & dlw4clm (lsmlon,lsmlat),pco24clm (lsmlon,lsmlat)
9 & ,swinr4clm (lsmlon,lsmlat),swvis4clm (lsmlon,lsmlat)
10
11 !
12 ! MIT 2D COMMON BLOCK
13 !
14 real lhfclm,lwuclm
15 common/clm4mit/ lhfclm(lsmlon,lsmlat),
16 & shfclm(lsmlon,lsmlat),
17 & tauxclm(lsmlon,lsmlat),
18 & tauyclm(lsmlon,lsmlat),
19 & asdirclm(lsmlon,lsmlat),
20 & aldirclm(lsmlon,lsmlat),
21 & asdifclm(lsmlon,lsmlat),
22 & aldifclm(lsmlon,lsmlat),
23 & sroclm(lsmlon,lsmlat),
24 & ssrclm(lsmlon,lsmlat),
25 & glrclm(lsmlon,lsmlat),
26 & vetclm(lsmlon,lsmlat),
27 & sevclm(lsmlon,lsmlat),
28 & cevclm(lsmlon,lsmlat),
29 & lwuclm(lsmlon,lsmlat),
30 & tref2mclm(lsmlon,lsmlat),
31 & tflxclm(lsmlon,lsmlat),
32 & tgndclm(lsmlon,lsmlat),
33 & snwdclm(lsmlon,lsmlat),
34 & snwcclm(lsmlon,lsmlat),
35 & tsoiclm(lsmlon,lsmlat,nlevsoi),
36 & h2oiclm(lsmlon,lsmlat,nlevsoi),
37 & h2olclm(lsmlon,lsmlat,nlevsoi)
38
39 common/clm4r95/ ncallclm
40 ! common/prratio/prlnd2total(lsmlat,12)

  ViewVC Help
Powered by ViewVC 1.1.22