76 |
_RL sox3 |
_RL sox3 |
77 |
_RL sox4 |
_RL sox4 |
78 |
|
|
79 |
|
C-- COMMON /DIC_FILENAMES/ |
80 |
|
C WindFileDic :: file name of wind speeds |
81 |
|
C AtmospFileDic :: file name of atmospheric pressure |
82 |
|
C IceFileDic :: file name of seaice fraction |
83 |
|
C IronFileDic :: file name of aeolian iron flux |
84 |
|
C SilicaFileDic :: file name of surface silica |
85 |
|
C dic_ForcingPeriod :: periodic forcing parameter specific for dic (seconds) |
86 |
|
C dic_ForcingCycle :: periodic forcing parameter specific for dic (seconds) |
87 |
|
C dic_int* :: place holder to read in a integer number, set at run time |
88 |
|
C dic_pCO2 :: Atmospheric pCO2 to be rad in data.dic |
89 |
|
|
90 |
|
COMMON /DIC_FILENAMES/ |
91 |
|
& WindFileDic, AtmospFileDic, IceFileDic, |
92 |
|
& IronFileDic, SilicaFileDic, |
93 |
|
& dic_ForcingPeriod, dic_ForcingCycle, |
94 |
|
& dic_int1, dic_int2, dic_int3, dic_int4, dic_pCO2 |
95 |
|
|
96 |
|
CHARACTER*(MAX_LEN_FNAM) WindFileDic |
97 |
|
CHARACTER*(MAX_LEN_FNAM) AtmospFileDic |
98 |
|
CHARACTER*(MAX_LEN_FNAM) IceFileDic |
99 |
|
CHARACTER*(MAX_LEN_FNAM) IronFileDic |
100 |
|
CHARACTER*(MAX_LEN_FNAM) SilicaFileDic |
101 |
|
_RL dic_ForcingPeriod |
102 |
|
_RL dic_ForcingCycle |
103 |
|
INTEGER dic_int1 |
104 |
|
INTEGER dic_int2 |
105 |
|
INTEGER dic_int3 |
106 |
|
INTEGER dic_int4 |
107 |
|
_RL dic_pCO2 |
108 |
|
|
109 |
#ifdef DIC_BIOTIC |
#ifdef DIC_BIOTIC |
110 |
C /==========================================================\ |
C /==========================================================\ |
111 |
C | o Biological Carbon Variables |
C | o Biological Carbon Variables |