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

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

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

revision 1.1 by jscott, Fri Aug 11 19:35:32 2006 UTC revision 1.2 by jscott, Mon Apr 23 21:20:18 2007 UTC
# Line 1  Line 1 
1    c source sokolov users   1398 Sep  6 13:42 rdata4clm.F
2  #include "ctrparam.h"  #include "ctrparam.h"
3          subroutine rdata4clm(var)          subroutine rdata4clm(var)
4          character *3 var          character *3 var
5  #include "CLM.COM"  #include "CLM.h"
6          dimension ps4clmc(lsmlon,lsmlat),pcpl4clmc(lsmlon,lsmlat),          dimension ps4clmc(lsmlon,lsmlat),pcpl4clmc(lsmlon,lsmlat),
7       & pcpc4clmc(lsmlon,lsmlat),tpr4clmc(lsmlon,lsmlat),       & pcpc4clmc(lsmlon,lsmlat),tpr4clmc(lsmlon,lsmlat),
8       &  tsl4clmc(lsmlon,lsmlat),       &  tsl4clmc(lsmlon,lsmlat),
# Line 36  Line 37 
37         endif         endif
38         if(var.eq.'PRE'.or.var.eq.'PC2')then         if(var.eq.'PRE'.or.var.eq.'PC2')then
39  !         print *,'Precip from control run'  !         print *,'Precip from control run'
40            do j=1,jm0  !         do j=1,jm0
41             pcpl4clm(j) = pcpl4clmc(j)             pcpl4clm = pcpl4clmc
42             pcpc4clm(j) = pcpc4clmc(j)             pcpc4clm = pcpc4clmc
43             tpr4clm(j) = tpr4clmc(j)             tpr4clm = tpr4clmc
44            enddo  !         enddo
45         endif         endif
46         return         return
47         end         end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22