--- MITgcm_contrib/jscott/igsm/src/rdata4clm.F	2006/08/11 19:35:32	1.1
+++ MITgcm_contrib/jscott/igsm/src/rdata4clm.F	2007/04/23 21:20:18	1.2
@@ -1,7 +1,8 @@
+c source sokolov users   1398 Sep  6 13:42 rdata4clm.F
 #include "ctrparam.h"
         subroutine rdata4clm(var)
         character *3 var
-#include "CLM.COM"
+#include "CLM.h"
         dimension ps4clmc(lsmlon,lsmlat),pcpl4clmc(lsmlon,lsmlat),
      & pcpc4clmc(lsmlon,lsmlat),tpr4clmc(lsmlon,lsmlat),
      &  tsl4clmc(lsmlon,lsmlat),
@@ -36,11 +37,11 @@
        endif
        if(var.eq.'PRE'.or.var.eq.'PC2')then
 !         print *,'Precip from control run'
-          do j=1,jm0
-           pcpl4clm(j) = pcpl4clmc(j)
-           pcpc4clm(j) = pcpc4clmc(j)
-           tpr4clm(j) = tpr4clmc(j)
-          enddo
+!         do j=1,jm0
+           pcpl4clm = pcpl4clmc
+           pcpc4clm = pcpc4clmc
+           tpr4clm = tpr4clmc
+!         enddo
        endif
        return
        end