--- MITgcm_contrib/jscott/igsm/src/r95mit.F	2006/08/11 19:35:31	1.1
+++ MITgcm_contrib/jscott/igsm/src/r95mit.F	2007/04/23 21:20:18	1.2
@@ -1,4 +1,4 @@
-
+c source sokolov users 559243 Aug 15  2006 /home/sokolov/IGSM2/SRC/r95mit.F
 #include "ctrparam.h"
 
 !	==========================================================
@@ -200,7 +200,7 @@
 #include "chem_para"
 #include "chem_com"
 #if ( defined CLM )
-#include "CLM.COM"
+#include "CLM.h"
 #endif
 
       DIMENSION ALVISK(11,4),ALNIRK(11,4),FIELDC(11,3),VTMASK(11)        241.   
@@ -444,8 +444,9 @@
 
 #if ( defined CLM )
 c     if(ncallclm.ge.1)then
-      BEAVIS=0.7*asdirclm(JLAT)+0.3*asdifclm(JLAT)
-      BEANIR=0.7*aldirclm(JLAT)+0.3*aldifclm(JLAT)
+      i=1
+      BEAVIS=0.7*asdirclm(i,JLAT)+0.3*asdifclm(i,JLAT)
+      BEANIR=0.7*aldirclm(i,JLAT)+0.3*aldifclm(i,JLAT)
       XEAVIS=BEAVIS
       XEANIR=BEANIR
 c     endif
@@ -539,8 +540,9 @@
 
 #if ( defined CLM )
 c     if(ncallclm.ge.1)then
-      BLIVIS=0.7*asdirclm(JLAT)+0.3*asdifclm(JLAT)
-      BLINIR=0.7*aldirclm(JLAT)+0.3*aldifclm(JLAT)
+      i=1
+      BLIVIS=0.7*asdirclm(i,JLAT)+0.3*asdifclm(i,JLAT)
+      BLINIR=0.7*aldirclm(i,JLAT)+0.3*aldifclm(i,JLAT)
 c     endif
 #endif
 
@@ -698,7 +700,6 @@
 C                                                                        685.   
       IF(LASTVC.GE.0) GO TO 107                                          686.   
 C                                                                        687.   
-      print *,' Before DO 105'
       DO 105 L=1,NL                                                      688.   
       P=PLB(L)                                                           689.   
       DO 101 N=2,8                                                       690.   
@@ -1809,7 +1810,7 @@
 
 #include "B83XX.COM"
 #if ( defined CLM )
-#include "CLM.COM"
+#include "CLM.h"
 #endif
   
       DATA R6,R24/.1666667,4.166667E-02/                                1577.