--- MITgcm/pkg/dic/dic_surfforcing.F	2007/10/26 21:08:13	1.18
+++ MITgcm/pkg/dic/dic_surfforcing.F	2007/11/05 21:01:37	1.19
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/dic_surfforcing.F,v 1.18 2007/10/26 21:08:13 dfer Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/dic/dic_surfforcing.F,v 1.19 2007/11/05 21:01:37 stephd Exp $
 C $Name:  $
 
 #include "DIC_OPTIONS.h"
@@ -66,16 +66,16 @@
 
       kLev=1
 
-c if coupled to atmsopheric model, use the
-c Co2 value passed from the coupler
-#ifndef USE_ATMOSCO2
-C PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv
-       DO j=1-OLy,sNy+OLy
-        DO i=1-OLx,sNx+OLx
-           AtmospCO2(i,j,bi,bj)=278.0 _d -6
-        ENDDO
-       ENDDO
-#endif
+cc if coupled to atmsopheric model, use the
+cc Co2 value passed from the coupler
+c#ifndef USE_ATMOSCO2
+cC PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv
+c       DO j=1-OLy,sNy+OLy
+c        DO i=1-OLx,sNx+OLx
+c           AtmospCO2(i,j,bi,bj)=278.0 _d -6
+c        ENDDO
+c       ENDDO
+c#endif
 
 
 C =================================================================