--- 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 =================================================================