/[MITgcm]/MITgcm/pkg/dic/dic_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_surfforcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by dfer, Fri Oct 26 21:08:13 2007 UTC revision 1.19 by stephd, Mon Nov 5 21:01:37 2007 UTC
# Line 66  cccccccccccccccccccccccccccccccccccccccc Line 66  cccccccccccccccccccccccccccccccccccccccc
66    
67        kLev=1        kLev=1
68    
69  c if coupled to atmsopheric model, use the  cc if coupled to atmsopheric model, use the
70  c Co2 value passed from the coupler  cc Co2 value passed from the coupler
71  #ifndef USE_ATMOSCO2  c#ifndef USE_ATMOSCO2
72  C PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv  cC PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv
73         DO j=1-OLy,sNy+OLy  c       DO j=1-OLy,sNy+OLy
74          DO i=1-OLx,sNx+OLx  c        DO i=1-OLx,sNx+OLx
75             AtmospCO2(i,j,bi,bj)=278.0 _d -6  c           AtmospCO2(i,j,bi,bj)=278.0 _d -6
76          ENDDO  c        ENDDO
77         ENDDO  c       ENDDO
78  #endif  c#endif
79    
80    
81  C =================================================================  C =================================================================
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22