pkg/darwin/DARWIN_EXF_PARAMS.h

8fbfd1f382 Oliv*0001 #ifdef ALLOW_DARWIN
                0002
                0003 CBOP
                0004 C     !ROUTINE: DARWIN_EXF_PARAMS.h
                0005 C     !INTERFACE:
                0006 C #include DARWIN_EXF_PARAMS.h
                0007
                0008 C     !DESCRIPTION:
                0009 C Contains parameters for reading forcing for darwin package through exf
                0010 C
d9e107d180 Oliv*0011 C Requires: EXF_OPTIONS.h
                0012 C Requires: EXF_INTERP_SIZE.h
8fbfd1f382 Oliv*0013
                0014       COMMON/darwin_forcing_exf_params_l/
                0015      &    darwin_loadFieldsEarly
                0016       LOGICAL darwin_loadFieldsEarly
                0017
                0018 C PAR forcing parameters for exf
                0019
                0020       _RL PARStartTime
                0021
                0022       COMMON/darwin_forcing_PAR_c/
                0023      &    PARmask
                0024       COMMON/darwin_forcing_PAR_i/
                0025      &    PARstartdate1, PARstartdate2
                0026       COMMON/darwin_forcing_PAR_r/
                0027      &    PARStartTime,
fecf0f6104 Oliv*0028      &    PARperiod, PARRepCycle, PARconst,
8fbfd1f382 Oliv*0029      &    PAR_exfremo_intercept, PAR_exfremo_slope,
                0030      &    darwin_inscal_PAR
                0031       CHARACTER*1 PARmask
                0032       INTEGER PARstartdate1
                0033       INTEGER PARstartdate2
                0034       _RL PARperiod
fecf0f6104 Oliv*0035       _RL PARRepCycle
8fbfd1f382 Oliv*0036       _RL PARconst
                0037       _RL PAR_exfremo_intercept
                0038       _RL PAR_exfremo_slope
                0039       _RL darwin_inscal_PAR
                0040
                0041 #ifdef USE_EXF_INTERPOLATION
                0042       COMMON/darwin_interp_PAR_i/
                0043      &    PAR_nlon, PAR_nlat, PAR_interpMethod
                0044       COMMON/darwin_interp_PAR_r/
6ed0cf4850 Oliv*0045      &    PAR_lon0, PAR_lat0, PAR_lon_inc,
                0046      &    PAR_lat_inc
8fbfd1f382 Oliv*0047       INTEGER PAR_interpMethod, PAR_nlon, PAR_nlat
                0048       _RL  PAR_lon0
                0049       _RL  PAR_lat0
                0050       _RL  PAR_lon_inc
                0051       _RL  PAR_lat_inc(MAX_LAT_INC)
                0052 #endif
                0053
                0054 C iron forcing parameters for exf
                0055
                0056       _RL ironStartTime
                0057
                0058       COMMON/darwin_forcing_iron_c/
                0059      &    ironmask
                0060       COMMON/darwin_forcing_iron_i/
                0061      &    ironstartdate1, ironstartdate2
                0062       COMMON/darwin_forcing_iron_r/
                0063      &    ironStartTime,
fecf0f6104 Oliv*0064      &    ironperiod, ironRepCycle, ironconst,
8fbfd1f382 Oliv*0065      &    iron_exfremo_intercept, iron_exfremo_slope,
                0066      &    darwin_inscal_iron
                0067       CHARACTER*1 ironmask
                0068       INTEGER ironstartdate1
                0069       INTEGER ironstartdate2
                0070       _RL ironperiod
fecf0f6104 Oliv*0071       _RL ironRepCycle
8fbfd1f382 Oliv*0072       _RL ironconst
                0073       _RL iron_exfremo_intercept
                0074       _RL iron_exfremo_slope
                0075       _RL darwin_inscal_iron
                0076
                0077 #ifdef USE_EXF_INTERPOLATION
                0078       COMMON/darwin_interp_iron_i/
                0079      &    iron_nlon, iron_nlat, iron_interpMethod
                0080       COMMON/darwin_interp_iron_r/
6ed0cf4850 Oliv*0081      &    iron_lon0, iron_lat0, iron_lon_inc,
                0082      &    iron_lat_inc
8fbfd1f382 Oliv*0083       INTEGER iron_interpMethod, iron_nlon, iron_nlat
                0084       _RL  iron_lon0
                0085       _RL  iron_lat0
                0086       _RL  iron_lon_inc
                0087       _RL  iron_lat_inc(MAX_LAT_INC)
                0088 #endif
                0089
                0090 C ice forcing parameters for exf
                0091
                0092       _RL iceStartTime
                0093
                0094       COMMON/darwin_forcing_ice_c/
                0095      &    icemask
                0096       COMMON/darwin_forcing_ice_i/
                0097      &    icestartdate1, icestartdate2
                0098       COMMON/darwin_forcing_ice_r/
                0099      &    iceStartTime,
fecf0f6104 Oliv*0100      &    iceperiod, iceRepCycle, iceconst,
8fbfd1f382 Oliv*0101      &    ice_exfremo_intercept, ice_exfremo_slope,
                0102      &    darwin_inscal_ice
                0103       CHARACTER*1 icemask
                0104       INTEGER icestartdate1
                0105       INTEGER icestartdate2
                0106       _RL iceperiod
fecf0f6104 Oliv*0107       _RL iceRepCycle
8fbfd1f382 Oliv*0108       _RL iceconst
                0109       _RL ice_exfremo_intercept
                0110       _RL ice_exfremo_slope
                0111       _RL darwin_inscal_ice
                0112
                0113 #ifdef USE_EXF_INTERPOLATION
                0114       COMMON/darwin_interp_ice_i/
                0115      &    ice_nlon, ice_nlat, ice_interpMethod
                0116       COMMON/darwin_interp_ice_r/
6ed0cf4850 Oliv*0117      &    ice_lon0, ice_lat0, ice_lon_inc,
                0118      &    ice_lat_inc
8fbfd1f382 Oliv*0119       INTEGER ice_interpMethod, ice_nlon, ice_nlat
                0120       _RL  ice_lon0
                0121       _RL  ice_lat0
                0122       _RL  ice_lon_inc
                0123       _RL  ice_lat_inc(MAX_LAT_INC)
                0124 #endif
                0125
                0126 C wind forcing parameters for exf
                0127
                0128       _RL windStartTime
                0129
                0130       COMMON/darwin_forcing_wind_c/
                0131      &    windmask
                0132       COMMON/darwin_forcing_wind_i/
                0133      &    windstartdate1, windstartdate2
                0134       COMMON/darwin_forcing_wind_r/
                0135      &    windStartTime,
fecf0f6104 Oliv*0136      &    windperiod, windRepCycle, windconst,
8fbfd1f382 Oliv*0137      &    wind_exfremo_intercept, wind_exfremo_slope,
                0138      &    darwin_inscal_wind
                0139       CHARACTER*1 windmask
                0140       INTEGER windstartdate1
                0141       INTEGER windstartdate2
                0142       _RL windperiod
fecf0f6104 Oliv*0143       _RL windRepCycle
8fbfd1f382 Oliv*0144       _RL windconst
                0145       _RL wind_exfremo_intercept
                0146       _RL wind_exfremo_slope
                0147       _RL darwin_inscal_wind
                0148
                0149 #ifdef USE_EXF_INTERPOLATION
                0150       COMMON/darwin_interp_wind_i/
                0151      &    wind_nlon, wind_nlat, wind_interpMethod
                0152       COMMON/darwin_interp_wind_r/
6ed0cf4850 Oliv*0153      &    wind_lon0, wind_lat0, wind_lon_inc,
                0154      &    wind_lat_inc
8fbfd1f382 Oliv*0155       INTEGER wind_interpMethod, wind_nlon, wind_nlat
                0156       _RL  wind_lon0
                0157       _RL  wind_lat0
                0158       _RL  wind_lon_inc
                0159       _RL  wind_lat_inc(MAX_LAT_INC)
                0160 #endif
                0161
                0162 C pCO2 forcing parameters for exf
                0163
                0164       _RL pCO2StartTime
                0165
                0166       COMMON/darwin_forcing_pCO2_c/
                0167      &    pCO2mask
                0168       COMMON/darwin_forcing_pCO2_i/
                0169      &    pCO2startdate1, pCO2startdate2
                0170       COMMON/darwin_forcing_pCO2_r/
                0171      &    pCO2StartTime,
fecf0f6104 Oliv*0172      &    pCO2period, pCO2RepCycle, pCO2const,
8fbfd1f382 Oliv*0173      &    pCO2_exfremo_intercept, pCO2_exfremo_slope,
                0174      &    darwin_inscal_pCO2
                0175       CHARACTER*1 pCO2mask
                0176       INTEGER pCO2startdate1
                0177       INTEGER pCO2startdate2
                0178       _RL pCO2period
fecf0f6104 Oliv*0179       _RL pCO2RepCycle
8fbfd1f382 Oliv*0180       _RL pCO2const
                0181       _RL pCO2_exfremo_intercept
                0182       _RL pCO2_exfremo_slope
                0183       _RL darwin_inscal_pCO2
                0184
                0185 #ifdef USE_EXF_INTERPOLATION
                0186       COMMON/darwin_interp_pCO2_i/
                0187      &    pCO2_nlon, pCO2_nlat, pCO2_interpMethod
                0188       COMMON/darwin_interp_pCO2_r/
6ed0cf4850 Oliv*0189      &    pCO2_lon0, pCO2_lat0, pCO2_lon_inc,
                0190      &    pCO2_lat_inc
8fbfd1f382 Oliv*0191       INTEGER pCO2_interpMethod, pCO2_nlon, pCO2_nlat
                0192       _RL  pCO2_lon0
                0193       _RL  pCO2_lat0
                0194       _RL  pCO2_lon_inc
                0195       _RL  pCO2_lat_inc(MAX_LAT_INC)
                0196 #endif
e79020cc6e Oliv*0197
6ed0cf4850 Oliv*0198 C ventHe3 forcing parameters for exf
                0199
                0200       _RL ventHe3StartTime
                0201
                0202       COMMON/darwin_forcing_ventHe3_c/
                0203      &    ventHe3mask
                0204       COMMON/darwin_forcing_ventHe3_i/
                0205      &    ventHe3startdate1, ventHe3startdate2
                0206       COMMON/darwin_forcing_ventHe3_r/
                0207      &    ventHe3StartTime,
                0208      &    ventHe3period, ventHe3RepCycle, ventHe3const,
                0209      &    ventHe3_exfremo_intercept, ventHe3_exfremo_slope,
                0210      &    darwin_inscal_ventHe3
                0211       CHARACTER*1 ventHe3mask
                0212       INTEGER ventHe3startdate1
                0213       INTEGER ventHe3startdate2
                0214       _RL ventHe3period
                0215       _RL ventHe3RepCycle
                0216       _RL ventHe3const
                0217       _RL ventHe3_exfremo_intercept
                0218       _RL ventHe3_exfremo_slope
                0219       _RL darwin_inscal_ventHe3
                0220
                0221 #ifdef USE_EXF_INTERPOLATION
                0222       COMMON/darwin_interp_ventHe3_i/
                0223      &    ventHe3_nlon, ventHe3_nlat, ventHe3_interpMethod
                0224       COMMON/darwin_interp_ventHe3_r/
                0225      &    ventHe3_lon0, ventHe3_lat0, ventHe3_lon_inc,
                0226      &    ventHe3_lat_inc
                0227       INTEGER ventHe3_interpMethod, ventHe3_nlon, ventHe3_nlat
                0228       _RL  ventHe3_lon0
                0229       _RL  ventHe3_lat0
                0230       _RL  ventHe3_lon_inc
                0231       _RL  ventHe3_lat_inc(MAX_LAT_INC)
                0232 #endif
                0233
                0234 C DOCrunoff forcing parameters for exf
e79020cc6e Oliv*0235
                0236       _RL DOCrunoffStartTime
                0237
                0238       COMMON/darwin_forcing_DOCrunoff_c/
                0239      &    DOCrunoffmask
                0240       COMMON/darwin_forcing_DOCrunoff_i/
                0241      &    DOCrunoffstartdate1, DOCrunoffstartdate2
                0242       COMMON/darwin_forcing_DOCrunoff_r/
                0243      &    DOCrunoffStartTime,
                0244      &    DOCrunoffperiod, DOCrunoffRepCycle, DOCrunoffconst,
                0245      &    DOCrunoff_exfremo_intercept, DOCrunoff_exfremo_slope,
                0246      &    darwin_inscal_DOCrunoff
                0247       CHARACTER*1 DOCrunoffmask
                0248       INTEGER DOCrunoffstartdate1
                0249       INTEGER DOCrunoffstartdate2
                0250       _RL DOCrunoffperiod
                0251       _RL DOCrunoffRepCycle
                0252       _RL DOCrunoffconst
                0253       _RL DOCrunoff_exfremo_intercept
                0254       _RL DOCrunoff_exfremo_slope
                0255       _RL darwin_inscal_DOCrunoff
                0256
                0257 #ifdef USE_EXF_INTERPOLATION
                0258       COMMON/darwin_interp_DOCrunoff_i/
                0259      &    DOCrunoff_nlon, DOCrunoff_nlat, DOCrunoff_interpMethod
                0260       COMMON/darwin_interp_DOCrunoff_r/
                0261      &    DOCrunoff_lon0, DOCrunoff_lat0, DOCrunoff_lon_inc,
9c7e03baf5 Oliv*0262      &    DOCrunoff_lat_inc
e79020cc6e Oliv*0263       INTEGER DOCrunoff_interpMethod, DOCrunoff_nlon, DOCrunoff_nlat
                0264       _RL  DOCrunoff_lon0
                0265       _RL  DOCrunoff_lat0
                0266       _RL  DOCrunoff_lon_inc
                0267       _RL  DOCrunoff_lat_inc(MAX_LAT_INC)
                0268 #endif
                0269
6ed0cf4850 Oliv*0270 C DONrunoff forcing parameters for exf
e79020cc6e Oliv*0271
                0272       _RL DONrunoffStartTime
                0273
                0274       COMMON/darwin_forcing_DONrunoff_c/
                0275      &    DONrunoffmask
                0276       COMMON/darwin_forcing_DONrunoff_i/
                0277      &    DONrunoffstartdate1, DONrunoffstartdate2
                0278       COMMON/darwin_forcing_DONrunoff_r/
                0279      &    DONrunoffStartTime,
                0280      &    DONrunoffperiod, DONrunoffRepCycle, DONrunoffconst,
                0281      &    DONrunoff_exfremo_intercept, DONrunoff_exfremo_slope,
                0282      &    darwin_inscal_DONrunoff
                0283       CHARACTER*1 DONrunoffmask
                0284       INTEGER DONrunoffstartdate1
                0285       INTEGER DONrunoffstartdate2
                0286       _RL DONrunoffperiod
                0287       _RL DONrunoffRepCycle
                0288       _RL DONrunoffconst
                0289       _RL DONrunoff_exfremo_intercept
                0290       _RL DONrunoff_exfremo_slope
                0291       _RL darwin_inscal_DONrunoff
                0292
                0293 #ifdef USE_EXF_INTERPOLATION
                0294       COMMON/darwin_interp_DONrunoff_i/
                0295      &    DONrunoff_nlon, DONrunoff_nlat, DONrunoff_interpMethod
                0296       COMMON/darwin_interp_DONrunoff_r/
                0297      &    DONrunoff_lon0, DONrunoff_lat0, DONrunoff_lon_inc,
                0298      &    DONrunoff_lat_inc
                0299       INTEGER DONrunoff_interpMethod, DONrunoff_nlon, DONrunoff_nlat
                0300       _RL  DONrunoff_lon0
                0301       _RL  DONrunoff_lat0
                0302       _RL  DONrunoff_lon_inc
                0303       _RL  DONrunoff_lat_inc(MAX_LAT_INC)
                0304 #endif
                0305
6ed0cf4850 Oliv*0306 C DOPrunoff forcing parameters for exf
e79020cc6e Oliv*0307
                0308       _RL DOPrunoffStartTime
                0309
                0310       COMMON/darwin_forcing_DOPrunoff_c/
                0311      &    DOPrunoffmask
                0312       COMMON/darwin_forcing_DOPrunoff_i/
                0313      &    DOPrunoffstartdate1, DOPrunoffstartdate2
                0314       COMMON/darwin_forcing_DOPrunoff_r/
                0315      &    DOPrunoffStartTime,
                0316      &    DOPrunoffperiod, DOPrunoffRepCycle, DOPrunoffconst,
                0317      &    DOPrunoff_exfremo_intercept, DOPrunoff_exfremo_slope,
                0318      &    darwin_inscal_DOPrunoff
                0319       CHARACTER*1 DOPrunoffmask
                0320       INTEGER DOPrunoffstartdate1
                0321       INTEGER DOPrunoffstartdate2
                0322       _RL DOPrunoffperiod
                0323       _RL DOPrunoffRepCycle
                0324       _RL DOPrunoffconst
                0325       _RL DOPrunoff_exfremo_intercept
                0326       _RL DOPrunoff_exfremo_slope
                0327       _RL darwin_inscal_DOPrunoff
                0328
                0329 #ifdef USE_EXF_INTERPOLATION
                0330       COMMON/darwin_interp_DOPrunoff_i/
                0331      &    DOPrunoff_nlon, DOPrunoff_nlat, DOPrunoff_interpMethod
                0332       COMMON/darwin_interp_DOPrunoff_r/
                0333      &    DOPrunoff_lon0, DOPrunoff_lat0, DOPrunoff_lon_inc,
                0334      &    DOPrunoff_lat_inc
                0335       INTEGER DOPrunoff_interpMethod, DOPrunoff_nlon, DOPrunoff_nlat
                0336       _RL  DOPrunoff_lon0
                0337       _RL  DOPrunoff_lat0
                0338       _RL  DOPrunoff_lon_inc
                0339       _RL  DOPrunoff_lat_inc(MAX_LAT_INC)
                0340 #endif
                0341
6ed0cf4850 Oliv*0342 C DINrunoff forcing parameters for exf
e79020cc6e Oliv*0343
                0344       _RL DINrunoffStartTime
                0345
                0346       COMMON/darwin_forcing_DINrunoff_c/
                0347      &    DINrunoffmask
                0348       COMMON/darwin_forcing_DINrunoff_i/
                0349      &    DINrunoffstartdate1, DINrunoffstartdate2
                0350       COMMON/darwin_forcing_DINrunoff_r/
                0351      &    DINrunoffStartTime,
                0352      &    DINrunoffperiod, DINrunoffRepCycle, DINrunoffconst,
                0353      &    DINrunoff_exfremo_intercept, DINrunoff_exfremo_slope,
                0354      &    darwin_inscal_DINrunoff
                0355       CHARACTER*1 DINrunoffmask
                0356       INTEGER DINrunoffstartdate1
                0357       INTEGER DINrunoffstartdate2
                0358       _RL DINrunoffperiod
                0359       _RL DINrunoffRepCycle
                0360       _RL DINrunoffconst
                0361       _RL DINrunoff_exfremo_intercept
                0362       _RL DINrunoff_exfremo_slope
                0363       _RL darwin_inscal_DINrunoff
                0364
                0365 #ifdef USE_EXF_INTERPOLATION
                0366       COMMON/darwin_interp_DINrunoff_i/
                0367      &    DINrunoff_nlon, DINrunoff_nlat, DINrunoff_interpMethod
                0368       COMMON/darwin_interp_DINrunoff_r/
                0369      &    DINrunoff_lon0, DINrunoff_lat0, DINrunoff_lon_inc,
9c7e03baf5 Oliv*0370      &    DINrunoff_lat_inc
e79020cc6e Oliv*0371       INTEGER DINrunoff_interpMethod, DINrunoff_nlon, DINrunoff_nlat
                0372       _RL  DINrunoff_lon0
                0373       _RL  DINrunoff_lat0
                0374       _RL  DINrunoff_lon_inc
                0375       _RL  DINrunoff_lat_inc(MAX_LAT_INC)
                0376 #endif
                0377
11d365acff Oliv*0378 C NO3runoff forcing parameters for exf
                0379
                0380       _RL NO3runoffStartTime
                0381
                0382       COMMON/darwin_forcing_NO3runoff_c/
                0383      &    NO3runoffmask
                0384       COMMON/darwin_forcing_NO3runoff_i/
                0385      &    NO3runoffstartdate1, NO3runoffstartdate2
                0386       COMMON/darwin_forcing_NO3runoff_r/
                0387      &    NO3runoffStartTime,
                0388      &    NO3runoffperiod, NO3runoffRepCycle, NO3runoffconst,
                0389      &    NO3runoff_exfremo_intercept, NO3runoff_exfremo_slope,
                0390      &    darwin_inscal_NO3runoff
                0391       CHARACTER*1 NO3runoffmask
                0392       INTEGER NO3runoffstartdate1
                0393       INTEGER NO3runoffstartdate2
                0394       _RL NO3runoffperiod
                0395       _RL NO3runoffRepCycle
                0396       _RL NO3runoffconst
                0397       _RL NO3runoff_exfremo_intercept
                0398       _RL NO3runoff_exfremo_slope
                0399       _RL darwin_inscal_NO3runoff
                0400
                0401 #ifdef USE_EXF_INTERPOLATION
                0402       COMMON/darwin_interp_NO3runoff_i/
                0403      &    NO3runoff_nlon, NO3runoff_nlat, NO3runoff_interpMethod
                0404       COMMON/darwin_interp_NO3runoff_r/
                0405      &    NO3runoff_lon0, NO3runoff_lat0, NO3runoff_lon_inc,
                0406      &    NO3runoff_lat_inc
                0407       INTEGER NO3runoff_interpMethod, NO3runoff_nlon, NO3runoff_nlat
                0408       _RL  NO3runoff_lon0
                0409       _RL  NO3runoff_lat0
                0410       _RL  NO3runoff_lon_inc
                0411       _RL  NO3runoff_lat_inc(MAX_LAT_INC)
                0412 #endif
                0413
                0414 C NO2runoff forcing parameters for exf
                0415
                0416       _RL NO2runoffStartTime
                0417
                0418       COMMON/darwin_forcing_NO2runoff_c/
                0419      &    NO2runoffmask
                0420       COMMON/darwin_forcing_NO2runoff_i/
                0421      &    NO2runoffstartdate1, NO2runoffstartdate2
                0422       COMMON/darwin_forcing_NO2runoff_r/
                0423      &    NO2runoffStartTime,
                0424      &    NO2runoffperiod, NO2runoffRepCycle, NO2runoffconst,
                0425      &    NO2runoff_exfremo_intercept, NO2runoff_exfremo_slope,
                0426      &    darwin_inscal_NO2runoff
                0427       CHARACTER*1 NO2runoffmask
                0428       INTEGER NO2runoffstartdate1
                0429       INTEGER NO2runoffstartdate2
                0430       _RL NO2runoffperiod
                0431       _RL NO2runoffRepCycle
                0432       _RL NO2runoffconst
                0433       _RL NO2runoff_exfremo_intercept
                0434       _RL NO2runoff_exfremo_slope
                0435       _RL darwin_inscal_NO2runoff
                0436
                0437 #ifdef USE_EXF_INTERPOLATION
                0438       COMMON/darwin_interp_NO2runoff_i/
                0439      &    NO2runoff_nlon, NO2runoff_nlat, NO2runoff_interpMethod
                0440       COMMON/darwin_interp_NO2runoff_r/
                0441      &    NO2runoff_lon0, NO2runoff_lat0, NO2runoff_lon_inc,
                0442      &    NO2runoff_lat_inc
                0443       INTEGER NO2runoff_interpMethod, NO2runoff_nlon, NO2runoff_nlat
                0444       _RL  NO2runoff_lon0
                0445       _RL  NO2runoff_lat0
                0446       _RL  NO2runoff_lon_inc
                0447       _RL  NO2runoff_lat_inc(MAX_LAT_INC)
                0448 #endif
                0449
                0450 C NH4runoff forcing parameters for exf
                0451
                0452       _RL NH4runoffStartTime
                0453
                0454       COMMON/darwin_forcing_NH4runoff_c/
                0455      &    NH4runoffmask
                0456       COMMON/darwin_forcing_NH4runoff_i/
                0457      &    NH4runoffstartdate1, NH4runoffstartdate2
                0458       COMMON/darwin_forcing_NH4runoff_r/
                0459      &    NH4runoffStartTime,
                0460      &    NH4runoffperiod, NH4runoffRepCycle, NH4runoffconst,
                0461      &    NH4runoff_exfremo_intercept, NH4runoff_exfremo_slope,
                0462      &    darwin_inscal_NH4runoff
                0463       CHARACTER*1 NH4runoffmask
                0464       INTEGER NH4runoffstartdate1
                0465       INTEGER NH4runoffstartdate2
                0466       _RL NH4runoffperiod
                0467       _RL NH4runoffRepCycle
                0468       _RL NH4runoffconst
                0469       _RL NH4runoff_exfremo_intercept
                0470       _RL NH4runoff_exfremo_slope
                0471       _RL darwin_inscal_NH4runoff
                0472
                0473 #ifdef USE_EXF_INTERPOLATION
                0474       COMMON/darwin_interp_NH4runoff_i/
                0475      &    NH4runoff_nlon, NH4runoff_nlat, NH4runoff_interpMethod
                0476       COMMON/darwin_interp_NH4runoff_r/
                0477      &    NH4runoff_lon0, NH4runoff_lat0, NH4runoff_lon_inc,
                0478      &    NH4runoff_lat_inc
                0479       INTEGER NH4runoff_interpMethod, NH4runoff_nlon, NH4runoff_nlat
                0480       _RL  NH4runoff_lon0
                0481       _RL  NH4runoff_lat0
                0482       _RL  NH4runoff_lon_inc
                0483       _RL  NH4runoff_lat_inc(MAX_LAT_INC)
                0484 #endif
                0485
6ed0cf4850 Oliv*0486 C IPrunoff forcing parameters for exf
e79020cc6e Oliv*0487
                0488       _RL IPrunoffStartTime
                0489
                0490       COMMON/darwin_forcing_IPrunoff_c/
                0491      &    IPrunoffmask
                0492       COMMON/darwin_forcing_IPrunoff_i/
                0493      &    IPrunoffstartdate1, IPrunoffstartdate2
                0494       COMMON/darwin_forcing_IPrunoff_r/
                0495      &    IPrunoffStartTime,
                0496      &    IPrunoffperiod, IPrunoffRepCycle, IPrunoffconst,
                0497      &    IPrunoff_exfremo_intercept, IPrunoff_exfremo_slope,
                0498      &    darwin_inscal_IPrunoff
                0499       CHARACTER*1 IPrunoffmask
                0500       INTEGER IPrunoffstartdate1
                0501       INTEGER IPrunoffstartdate2
                0502       _RL IPrunoffperiod
                0503       _RL IPrunoffRepCycle
                0504       _RL IPrunoffconst
                0505       _RL IPrunoff_exfremo_intercept
                0506       _RL IPrunoff_exfremo_slope
                0507       _RL darwin_inscal_IPrunoff
                0508
                0509 #ifdef USE_EXF_INTERPOLATION
                0510       COMMON/darwin_interp_IPrunoff_i/
                0511      &    IPrunoff_nlon, IPrunoff_nlat, IPrunoff_interpMethod
                0512       COMMON/darwin_interp_IPrunoff_r/
                0513      &    IPrunoff_lon0, IPrunoff_lat0, IPrunoff_lon_inc,
9c7e03baf5 Oliv*0514      &    IPrunoff_lat_inc
e79020cc6e Oliv*0515       INTEGER IPrunoff_interpMethod, IPrunoff_nlon, IPrunoff_nlat
                0516       _RL  IPrunoff_lon0
                0517       _RL  IPrunoff_lat0
                0518       _RL  IPrunoff_lon_inc
                0519       _RL  IPrunoff_lat_inc(MAX_LAT_INC)
                0520 #endif
                0521
6ed0cf4850 Oliv*0522 C DSirunoff forcing parameters for exf
e79020cc6e Oliv*0523
                0524       _RL DSirunoffStartTime
                0525
                0526       COMMON/darwin_forcing_DSirunoff_c/
                0527      &    DSirunoffmask
                0528       COMMON/darwin_forcing_DSirunoff_i/
                0529      &    DSirunoffstartdate1, DSirunoffstartdate2
                0530       COMMON/darwin_forcing_DSirunoff_r/
                0531      &    DSirunoffStartTime,
                0532      &    DSirunoffperiod, DSirunoffRepCycle, DSirunoffconst,
                0533      &    DSirunoff_exfremo_intercept, DSirunoff_exfremo_slope,
                0534      &    darwin_inscal_DSirunoff
                0535       CHARACTER*1 DSirunoffmask
                0536       INTEGER DSirunoffstartdate1
                0537       INTEGER DSirunoffstartdate2
                0538       _RL DSirunoffperiod
                0539       _RL DSirunoffRepCycle
                0540       _RL DSirunoffconst
                0541       _RL DSirunoff_exfremo_intercept
                0542       _RL DSirunoff_exfremo_slope
                0543       _RL darwin_inscal_DSirunoff
                0544
                0545 #ifdef USE_EXF_INTERPOLATION
                0546       COMMON/darwin_interp_DSirunoff_i/
                0547      &    DSirunoff_nlon, DSirunoff_nlat, DSirunoff_interpMethod
                0548       COMMON/darwin_interp_DSirunoff_r/
                0549      &    DSirunoff_lon0, DSirunoff_lat0, DSirunoff_lon_inc,
9c7e03baf5 Oliv*0550      &    DSirunoff_lat_inc
e79020cc6e Oliv*0551       INTEGER DSirunoff_interpMethod, DSirunoff_nlon, DSirunoff_nlat
                0552       _RL  DSirunoff_lon0
                0553       _RL  DSirunoff_lat0
                0554       _RL  DSirunoff_lon_inc
                0555       _RL  DSirunoff_lat_inc(MAX_LAT_INC)
                0556 #endif
                0557
6ed0cf4850 Oliv*0558 C POCrunoff forcing parameters for exf
e79020cc6e Oliv*0559
                0560       _RL POCrunoffStartTime
                0561
                0562       COMMON/darwin_forcing_POCrunoff_c/
                0563      &    POCrunoffmask
                0564       COMMON/darwin_forcing_POCrunoff_i/
                0565      &    POCrunoffstartdate1, POCrunoffstartdate2
                0566       COMMON/darwin_forcing_POCrunoff_r/
                0567      &    POCrunoffStartTime,
                0568      &    POCrunoffperiod, POCrunoffRepCycle, POCrunoffconst,
                0569      &    POCrunoff_exfremo_intercept, POCrunoff_exfremo_slope,
                0570      &    darwin_inscal_POCrunoff
                0571       CHARACTER*1 POCrunoffmask
                0572       INTEGER POCrunoffstartdate1
                0573       INTEGER POCrunoffstartdate2
                0574       _RL POCrunoffperiod
                0575       _RL POCrunoffRepCycle
                0576       _RL POCrunoffconst
                0577       _RL POCrunoff_exfremo_intercept
                0578       _RL POCrunoff_exfremo_slope
                0579       _RL darwin_inscal_POCrunoff
                0580
                0581 #ifdef USE_EXF_INTERPOLATION
                0582       COMMON/darwin_interp_POCrunoff_i/
                0583      &    POCrunoff_nlon, POCrunoff_nlat, POCrunoff_interpMethod
                0584       COMMON/darwin_interp_POCrunoff_r/
                0585      &    POCrunoff_lon0, POCrunoff_lat0, POCrunoff_lon_inc,
9c7e03baf5 Oliv*0586      &    POCrunoff_lat_inc
e79020cc6e Oliv*0587       INTEGER POCrunoff_interpMethod, POCrunoff_nlon, POCrunoff_nlat
                0588       _RL  POCrunoff_lon0
                0589       _RL  POCrunoff_lat0
                0590       _RL  POCrunoff_lon_inc
                0591       _RL  POCrunoff_lat_inc(MAX_LAT_INC)
                0592 #endif
                0593
6ed0cf4850 Oliv*0594 C POPrunoff forcing parameters for exf
e79020cc6e Oliv*0595
                0596       _RL POPrunoffStartTime
                0597
                0598       COMMON/darwin_forcing_POPrunoff_c/
                0599      &    POPrunoffmask
                0600       COMMON/darwin_forcing_POPrunoff_i/
                0601      &    POPrunoffstartdate1, POPrunoffstartdate2
                0602       COMMON/darwin_forcing_POPrunoff_r/
                0603      &    POPrunoffStartTime,
                0604      &    POPrunoffperiod, POPrunoffRepCycle, POPrunoffconst,
                0605      &    POPrunoff_exfremo_intercept, POPrunoff_exfremo_slope,
                0606      &    darwin_inscal_POPrunoff
                0607       CHARACTER*1 POPrunoffmask
                0608       INTEGER POPrunoffstartdate1
                0609       INTEGER POPrunoffstartdate2
                0610       _RL POPrunoffperiod
                0611       _RL POPrunoffRepCycle
                0612       _RL POPrunoffconst
                0613       _RL POPrunoff_exfremo_intercept
                0614       _RL POPrunoff_exfremo_slope
                0615       _RL darwin_inscal_POPrunoff
                0616
                0617 #ifdef USE_EXF_INTERPOLATION
                0618       COMMON/darwin_interp_POPrunoff_i/
                0619      &    POPrunoff_nlon, POPrunoff_nlat, POPrunoff_interpMethod
                0620       COMMON/darwin_interp_POPrunoff_r/
                0621      &    POPrunoff_lon0, POPrunoff_lat0, POPrunoff_lon_inc,
9c7e03baf5 Oliv*0622      &    POPrunoff_lat_inc
e79020cc6e Oliv*0623       INTEGER POPrunoff_interpMethod, POPrunoff_nlon, POPrunoff_nlat
                0624       _RL  POPrunoff_lon0
                0625       _RL  POPrunoff_lat0
                0626       _RL  POPrunoff_lon_inc
                0627       _RL  POPrunoff_lat_inc(MAX_LAT_INC)
                0628 #endif
                0629
6ed0cf4850 Oliv*0630 C PONrunoff forcing parameters for exf
e79020cc6e Oliv*0631
                0632       _RL PONrunoffStartTime
                0633
                0634       COMMON/darwin_forcing_PONrunoff_c/
                0635      &    PONrunoffmask
                0636       COMMON/darwin_forcing_PONrunoff_i/
                0637      &    PONrunoffstartdate1, PONrunoffstartdate2
                0638       COMMON/darwin_forcing_PONrunoff_r/
                0639      &    PONrunoffStartTime,
                0640      &    PONrunoffperiod, PONrunoffRepCycle, PONrunoffconst,
6ed0cf4850 Oliv*0641      &    PONrunoff_exfremo_intercept, PONrunoff_exfremo_slope,
e79020cc6e Oliv*0642      &    darwin_inscal_PONrunoff
                0643       CHARACTER*1 PONrunoffmask
                0644       INTEGER PONrunoffstartdate1
                0645       INTEGER PONrunoffstartdate2
                0646       _RL PONrunoffperiod
                0647       _RL PONrunoffRepCycle
                0648       _RL PONrunoffconst
                0649       _RL PONrunoff_exfremo_intercept
                0650       _RL PONrunoff_exfremo_slope
                0651       _RL darwin_inscal_PONrunoff
                0652
                0653 #ifdef USE_EXF_INTERPOLATION
                0654       COMMON/darwin_interp_PONrunoff_i/
                0655      &    PONrunoff_nlon, PONrunoff_nlat, PONrunoff_interpMethod
                0656       COMMON/darwin_interp_PONrunoff_r/
                0657      &    PONrunoff_lon0, PONrunoff_lat0, PONrunoff_lon_inc,
9c7e03baf5 Oliv*0658      &    PONrunoff_lat_inc
e79020cc6e Oliv*0659       INTEGER PONrunoff_interpMethod, PONrunoff_nlon, PONrunoff_nlat
                0660       _RL  PONrunoff_lon0
                0661       _RL  PONrunoff_lat0
                0662       _RL  PONrunoff_lon_inc
                0663       _RL  PONrunoff_lat_inc(MAX_LAT_INC)
                0664 #endif
                0665
6ed0cf4850 Oliv*0666 C DICrunoff forcing parameters for exf
e79020cc6e Oliv*0667
                0668       _RL DICrunoffStartTime
                0669
                0670       COMMON/darwin_forcing_DICrunoff_c/
                0671      &    DICrunoffmask
                0672       COMMON/darwin_forcing_DICrunoff_i/
                0673      &    DICrunoffstartdate1, DICrunoffstartdate2
                0674       COMMON/darwin_forcing_DICrunoff_r/
                0675      &    DICrunoffStartTime,
                0676      &    DICrunoffperiod, DICrunoffRepCycle, DICrunoffconst,
6ed0cf4850 Oliv*0677      &    DICrunoff_exfremo_intercept, DICrunoff_exfremo_slope,
e79020cc6e Oliv*0678      &    darwin_inscal_DICrunoff
                0679       CHARACTER*1 DICrunoffmask
                0680       INTEGER DICrunoffstartdate1
                0681       INTEGER DICrunoffstartdate2
                0682       _RL DICrunoffperiod
                0683       _RL DICrunoffRepCycle
                0684       _RL DICrunoffconst
                0685       _RL DICrunoff_exfremo_intercept
                0686       _RL DICrunoff_exfremo_slope
                0687       _RL darwin_inscal_DICrunoff
                0688
                0689 #ifdef USE_EXF_INTERPOLATION
                0690       COMMON/darwin_interp_DICrunoff_i/
                0691      &    DICrunoff_nlon, DICrunoff_nlat, DICrunoff_interpMethod
                0692       COMMON/darwin_interp_DICrunoff_r/
                0693      &    DICrunoff_lon0, DICrunoff_lat0, DICrunoff_lon_inc,
9c7e03baf5 Oliv*0694      &    DICrunoff_lat_inc
e79020cc6e Oliv*0695       INTEGER DICrunoff_interpMethod, DICrunoff_nlon, DICrunoff_nlat
                0696       _RL  DICrunoff_lon0
                0697       _RL  DICrunoff_lat0
                0698       _RL  DICrunoff_lon_inc
                0699       _RL  DICrunoff_lat_inc(MAX_LAT_INC)
                0700 #endif
                0701
                0702 C--   COMMON/DARWIN_RUNOFF_PARAMS_r/ Parameters for runoff nutrient input
                0703 C     R_ALK_DIC_runoff  :: [eq/mol C]     ALK:DIC ratio in runoff
                0704 C     R_NO3_DIN_runoff  :: [mol N/mol N]  NO3 fraction of DIN in runoff
                0705 C     R_NO2_DIN_runoff  :: [mol N/mol N]  NO2 fraction of DIN in runoff
                0706 C     R_NH4_DIN_runoff  :: [mol N/mol N]  NH4 fraction of DIN in runoff
                0707 C     R_DIP_IP_runoff   :: [mol P/mol P]  ratio of dissolved to total inorganic P in runoff
                0708 C     R_DFe_DIP_runoff  :: [mol Fe/mol P] Fe:P ratio for inorganic P in runoff
                0709 C     R_DOFe_DOP_runoff :: [mol Fe/mol P] Fe:P ratio for dissolved organic matter in runoff
                0710 C     R_POFe_POP_runoff :: [mol Fe/mol P] Fe:P ratio for particulate organic matter in runoff
                0711       COMMON/DARWIN_RUNOFF_PARAMS_R/
                0712      &    R_ALK_DIC_runoff,
                0713      &    R_NO3_DIN_runoff, R_NO2_DIN_runoff, R_NH4_DIN_runoff,
                0714      &    R_DIP_IP_runoff, R_DFe_DIP_runoff,
                0715      &    R_DOFe_DOP_runoff,
                0716      &    R_POFe_POP_runoff
                0717       _RL R_ALK_DIC_runoff
                0718       _RL R_NO3_DIN_runoff
                0719       _RL R_NO2_DIN_runoff
                0720       _RL R_NH4_DIN_runoff
                0721       _RL R_DIP_IP_runoff
                0722       _RL R_DFe_DIP_runoff
                0723       _RL R_DOFe_DOP_runoff
                0724       _RL R_POFe_POP_runoff
8fbfd1f382 Oliv*0725 CEOP
                0726
                0727 #endif /* ALLOW_DARWIN */
                0728