/[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.21 by dfer, Mon Apr 7 20:31:16 2008 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
5  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
 #include "GCHEM_OPTIONS.h"  
6    
7  CBOP  CBOP
8  C !ROUTINE: DIC_SURFFORCING  C !ROUTINE: DIC_SURFFORCING
# Line 25  C !USES: =============================== Line 24  C !USES: ===============================
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "GRID.h"  #include "GRID.h"
26  #include "FFIELDS.h"  #include "FFIELDS.h"
27  #include "DIC_ABIOTIC.h"  #include "DIC_VARS.h"
28    
29  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
30  C  myThid               :: thread number  C  myThid               :: thread number
# Line 66  cccccccccccccccccccccccccccccccccccccccc Line 65  cccccccccccccccccccccccccccccccccccccccc
65    
66        kLev=1        kLev=1
67    
68  c if coupled to atmsopheric model, use the  cc if coupled to atmsopheric model, use the
69  c Co2 value passed from the coupler  cc Co2 value passed from the coupler
70  #ifndef USE_ATMOSCO2  c#ifndef USE_ATMOSCO2
71  C PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv  cC PRE-INDUSTRIAL STEADY STATE pCO2 = 278.0 ppmv
72         DO j=1-OLy,sNy+OLy  c       DO j=1-OLy,sNy+OLy
73          DO i=1-OLx,sNx+OLx  c        DO i=1-OLx,sNx+OLx
74             AtmospCO2(i,j,bi,bj)=278.0 _d -6  c           AtmospCO2(i,j,bi,bj)=278.0 _d -6
75          ENDDO  c        ENDDO
76         ENDDO  c       ENDDO
77  #endif  c#endif
78    
79    
80  C =================================================================  C =================================================================
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22