25 |
#include "PARAMS.h" |
#include "PARAMS.h" |
26 |
#include "GRID.h" |
#include "GRID.h" |
27 |
#include "FFIELDS.h" |
#include "FFIELDS.h" |
28 |
#include "DIC_ABIOTIC.h" |
#include "DIC_VARS.h" |
29 |
|
|
30 |
C !INPUT PARAMETERS: =================================================== |
C !INPUT PARAMETERS: =================================================== |
31 |
C myThid :: thread number |
C myThid :: thread number |
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 ================================================================= |