/[MITgcm]/MITgcm_contrib/jscott/igsm/src/rdata4clm.F
ViewVC logotype

Contents of /MITgcm_contrib/jscott/igsm/src/rdata4clm.F

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


Revision 1.2 - (show annotations) (download)
Mon Apr 23 21:20:18 2007 UTC (18 years, 3 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +7 -6 lines
bring igsm atmos code up to date

1 c source sokolov users 1398 Sep 6 13:42 rdata4clm.F
2 #include "ctrparam.h"
3 subroutine rdata4clm(var)
4 character *3 var
5 #include "CLM.h"
6 dimension ps4clmc(lsmlon,lsmlat),pcpl4clmc(lsmlon,lsmlat),
7 & pcpc4clmc(lsmlon,lsmlat),tpr4clmc(lsmlon,lsmlat),
8 & tsl4clmc(lsmlon,lsmlat),
9 & qs4clmc(lsmlon,lsmlat),ws4clmc(lsmlon,lsmlat)
10 & ,us4clmc(lsmlon,lsmlat),vs4clmc(lsmlon,lsmlat),
11 & dsw4clmc(lsmlon,lsmlat),
12 & dlw4clmc(lsmlon,lsmlat),pco24clmc(lsmlon,lsmlat)
13 & ,swinr4clmc(lsmlon,lsmlat),swvis4clmc(lsmlon,lsmlat)
14 read (945),ps4clm,pcpl4clm,
15 & pcpc4clm,tpr4clm,
16 & tsl4clm,
17 & qs4clm,ws4clm
18 & ,us4clm,vs4clm,
19 & dsw4clm,
20 & dlw4clm,pco24clm
21 & ,swinr4clm,swvis4clm
22 if(var.ne.'ALL')then
23 read (935),ps4clmc,pcpl4clmc,
24 & pcpc4clmc,tpr4clmc,
25 & tsl4clmc,
26 & qs4clmc,ws4clmc
27 & ,us4clmc,vs4clmc,
28 & dsw4clmc,
29 & dlw4clmc,pco24clmc
30 & ,swinr4clmc,swvis4clmc
31 endif
32 if(var.eq.'TEM')then
33 ! print *,'Temperature from control run'
34 tsl4clm = tsl4clmc
35 dsw4clm = dsw4clmc
36 dlw4clm = dlw4clmc
37 endif
38 if(var.eq.'PRE'.or.var.eq.'PC2')then
39 ! print *,'Precip from control run'
40 ! do j=1,jm0
41 pcpl4clm = pcpl4clmc
42 pcpc4clm = pcpc4clmc
43 tpr4clm = tpr4clmc
44 ! enddo
45 endif
46 return
47 end
48

  ViewVC Help
Powered by ViewVC 1.1.22