--- MITgcm_contrib/jscott/igsm/src/condse.F	2006/08/22 20:25:52	1.2
+++ MITgcm_contrib/jscott/igsm/src/condse.F	2007/04/23 21:20:17	1.3
@@ -1,4 +1,4 @@
-
+c source sokolov users 75004 Aug 15  2006 /home/sokolov/IGSM2/SRC/condse.F
 #include "ctrparam.h"
 
 !	==========================================================
@@ -33,11 +33,11 @@
 C
 #if ( defined OCEAN_3D || defined ML_2D)
 #include "AGRID.h"
-C#include "HRD4OCN.COM"
+cjrs elimated this com file #include "HRD4OCN.COM"
 #endif
 
 #if ( defined CLM )
-#include "CLM.COM"
+#include "CLM.h"
 #endif
 c
 #if ( defined CPL_CHEM )
@@ -246,6 +246,7 @@
 #if ( !defined CLM )
          RHKP(l,j)=0.95*RHNEW(j)  ! 2905.06
          RHKP(l,j)=0.9375*RHNEW(j)  ! 2906.06
+         RHKP(l,j)=0.945*RHNEW(j)  ! 2907.06
 #endif
         enddo
         do l=4,6	! Middle clouds
@@ -264,7 +265,7 @@
          RHKP(l,j)=0.985*RHNEW(j) ! 2358
 #if ( !defined CLM )
          RHKP(l,j)=0.99*RHNEW(j)  ! 2905.06
-         RHKP(l,j)=0.995*RHNEW(j)  ! 2906.06
+         RHKP(l,j)=0.995*RHNEW(j)  ! 2906.06 2907.06
 #endif
         enddo
       do l=10,LM
@@ -1680,9 +1681,10 @@
 
 c     prhr(j)=PREC(1,J)
 c     PRCP=(PRCPMC+PRCPSS)*100./GRAV                                    3490.
-      pcpl4clm(j)=PRCPSS*100./GRAV
-      pcpc4clm(j)=PRCPMC*100./GRAV
-      tpr4clm(j)=TPREC(1,J)
+      i=1
+      pcpl4clm(i,j)=PRCPSS*100./GRAV
+      pcpc4clm(i,j)=PRCPMC*100./GRAV
+      tpr4clm(i,j)=TPREC(1,J)
 #endif
 C
 #if ( defined OCEAN_3D || defined ML_2D )