--- MITgcm_contrib/jscott/igsm/inc/CLM.h	2007/04/23 21:44:35	1.1
+++ MITgcm_contrib/jscott/igsm/inc/CLM.h	2009/09/02 15:58:09	1.2
@@ -1,41 +1,62 @@
-      parameter(lsmlon=1,lsmlat=N_LAT,nlevsoi=10)
-      common/mit2din/ ps4clm (lsmlon,lsmlat),pcpl4clm (lsmlon,lsmlat),
-     & pcpc4clm (lsmlon,lsmlat),tpr4clm (lsmlon,lsmlat),
-     &  tsl4clm (lsmlon,lsmlat),
-     &  qs4clm (lsmlon,lsmlat),ws4clm (lsmlon,lsmlat)
-     & ,us4clm (lsmlon,lsmlat),vs4clm (lsmlon,lsmlat),
-     &  dsw4clm (lsmlon,lsmlat),
-     &  dlw4clm (lsmlon,lsmlat),pco24clm (lsmlon,lsmlat)
-     &  ,swinr4clm (lsmlon,lsmlat),swvis4clm (lsmlon,lsmlat)
-     &  ,dt2mland
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/jscott/igsm/inc/CLM.h,v 1.2 2009/09/02 15:58:09 jscott Exp $
+C $Name:  $
 
+      INTEGER lsmlon, lsmlat, nlevsoi
+      PARAMETER(lsmlon=1,lsmlat=N_LAT,nlevsoi=10)
+      COMMON/mit2din/ ps4clm, pcpl4clm, pcpc4clm, tpr4clm,
+     &  tsl4clm, qs4clm, ws4clm , us4clm, vs4clm, dsw4clm,
+     &  dlw4clm, pco24clm, swinr4clm, swvis4clm, dt2mland
+      REAL*8 ps4clm (lsmlon,lsmlat)
+      REAL*8 pcpl4clm (lsmlon,lsmlat)
+      REAL*8 pcpc4clm (lsmlon,lsmlat)
+      REAL*8 tpr4clm (lsmlon,lsmlat)
+      REAL*8 tsl4clm (lsmlon,lsmlat)
+      REAL*8 qs4clm (lsmlon,lsmlat)
+      REAL*8 ws4clm (lsmlon,lsmlat)
+      REAL*8 us4clm (lsmlon,lsmlat)
+      REAL*8 vs4clm (lsmlon,lsmlat)
+      REAL*8 dsw4clm (lsmlon,lsmlat)
+      REAL*8 dlw4clm (lsmlon,lsmlat)
+      REAL*8 pco24clm (lsmlon,lsmlat)
+      REAL*8 swinr4clm (lsmlon,lsmlat)
+      REAL*8 swvis4clm (lsmlon,lsmlat)
+      REAL*8 dt2mland
 !
 ! MIT 2D COMMON BLOCK
 !
-      real lhfclm,lwuclm
-      common/clm4mit/ lhfclm(lsmlon,lsmlat),
-     &    shfclm(lsmlon,lsmlat),
-     &    tauxclm(lsmlon,lsmlat),
-     &    tauyclm(lsmlon,lsmlat),
-     &    asdirclm(lsmlon,lsmlat),
-     &    aldirclm(lsmlon,lsmlat),
-     &    asdifclm(lsmlon,lsmlat),
-     &    aldifclm(lsmlon,lsmlat),
-     &    sroclm(lsmlon,lsmlat),
-     &    ssrclm(lsmlon,lsmlat),
-     &    glrclm(lsmlon,lsmlat),
-     &    vetclm(lsmlon,lsmlat),
-     &    sevclm(lsmlon,lsmlat),
-     &    cevclm(lsmlon,lsmlat),
-     &    lwuclm(lsmlon,lsmlat),
-     &    tref2mclm(lsmlon,lsmlat),
-     &    tflxclm(lsmlon,lsmlat),
-     &    tgndclm(lsmlon,lsmlat),
-     &    snwdclm(lsmlon,lsmlat),
-     &    snwcclm(lsmlon,lsmlat),
-     &    tsoiclm(lsmlon,lsmlat,nlevsoi),
-     &    h2oiclm(lsmlon,lsmlat,nlevsoi),
-     &    h2olclm(lsmlon,lsmlat,nlevsoi)
+      COMMON/clm4mit/ lhfclm, shfclm, tauxclm, tauyclm,
+     &    asdirclm, aldirclm, asdifclm, aldifclm, sroclm,
+     &    ssrclm, glrclm, vetclm, sevclm, cevclm, lwuclm,
+     &    tref2mclm, tflxclm, tgndclm, snwdclm, snwcclm,
+     &    tsoiclm, h2oiclm, h2olclm
+      REAL*8 lhfclm(lsmlon,lsmlat)
+      REAL*8 shfclm(lsmlon,lsmlat)
+      REAL*8 tauxclm(lsmlon,lsmlat)
+      REAL*8 tauyclm(lsmlon,lsmlat)
+      REAL*8 asdirclm(lsmlon,lsmlat)
+      REAL*8 aldirclm(lsmlon,lsmlat)
+      REAL*8 asdifclm(lsmlon,lsmlat)
+      REAL*8 aldifclm(lsmlon,lsmlat)
+      REAL*8 sroclm(lsmlon,lsmlat)
+      REAL*8 ssrclm(lsmlon,lsmlat)
+      REAL*8 glrclm(lsmlon,lsmlat)
+      REAL*8 vetclm(lsmlon,lsmlat)
+      REAL*8 sevclm(lsmlon,lsmlat)
+      REAL*8 cevclm(lsmlon,lsmlat)
+      REAL*8 lwuclm(lsmlon,lsmlat)
+      REAL*8 tref2mclm(lsmlon,lsmlat)
+      REAL*8 tflxclm(lsmlon,lsmlat)
+      REAL*8 tgndclm(lsmlon,lsmlat)
+      REAL*8 snwdclm(lsmlon,lsmlat)
+      REAL*8 snwcclm(lsmlon,lsmlat)
+      REAL*8 tsoiclm(lsmlon,lsmlat,nlevsoi)
+      REAL*8 h2oiclm(lsmlon,lsmlat,nlevsoi)
+      REAL*8 h2olclm(lsmlon,lsmlat,nlevsoi)
 
-      common/clm4r95/ ncallclm
+      COMMON/clm4r95/ ncallclm
+      INTEGER  ncallclm
+
+      COMMON/clmprtr/ PRTREND
+      LOGICAL  PRTREND
+ 
 !     common/prratio/prlnd2total(lsmlat,12)