--- MITgcm_contrib/jscott/igsm/src/dd2g04.F	2006/08/11 19:35:30	1.1
+++ MITgcm_contrib/jscott/igsm/src/dd2g04.F	2007/04/23 21:20:18	1.2
@@ -1347,6 +1347,12 @@
        SCALE(43)=1.0
 c      45 is LWUP at Z0 from CLM
        SCALE(45)=1.0
+c      16 is vetclm  from CLM
+       SCALE(16)=SDAY
+c      41 is sevclm  from CLM
+       SCALE(41)=SDAY
+c      42 is cevclm  from CLM
+       SCALE(42)=SDAY
       endif
       SCALE(46)=SDAY/DTSRCE 
       SCALE(47)=SDAY/DTSRCE                                             1693.   
@@ -1403,7 +1409,9 @@
 CCC   ABCJCL(J,7,M)=ABCJCL(J,7,M)/(A1BYA2*DTSRCE)
       ABCJCL(J,12,M)=ABCJCL(J,4,M)+ABCJCL(J,7,M)
 C  CLEAR SKY 
+      if(NOCLM) then
       ABCJ(J,16,M)=ABCJ(J,41,M)+ABCJ(J,42,M)                            1736.   
+      endif
       ABCJ(J,20,M)=ABCJ(J,61,M)+ABCJ(J,62,M)                            1737.   
       if(NOCLM)then
       ABCJ(J,44,M)=ABCJ(J,12,M)+ABCJ(J,13,M)+ABCJ(J,14,M)               1738.