/[MITgcm]/MITgcm/pkg/exf/EXF_PARAM.h
ViewVC logotype

Diff of /MITgcm/pkg/exf/EXF_PARAM.h

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

revision 1.21 by dimitri, Tue Jun 22 16:14:42 2010 UTC revision 1.22 by jmc, Tue Nov 23 18:55:54 2010 UTC
# Line 60  c           fieldperiod=-12 means input Line 60  c           fieldperiod=-12 means input
60        _RL     hfluxstartdate        _RL     hfluxstartdate
61        _RL     hfluxperiod        _RL     hfluxperiod
62        _RL     hfluxconst        _RL     hfluxconst
63        _RL     hflux_exfremo_intercept        _RL     hflux_exfremo_intercept
64        _RL     hflux_exfremo_slope        _RL     hflux_exfremo_slope
65        character*1 hfluxmask        character*1 hfluxmask
66        parameter(  hfluxmask = 's' )        parameter(  hfluxmask = 's' )
# Line 70  c           fieldperiod=-12 means input Line 70  c           fieldperiod=-12 means input
70        _RL     atempstartdate        _RL     atempstartdate
71        _RL     atempperiod        _RL     atempperiod
72        _RL     atempconst        _RL     atempconst
73        _RL     atemp_exfremo_intercept        _RL     atemp_exfremo_intercept
74        _RL     atemp_exfremo_slope        _RL     atemp_exfremo_slope
75        character*1 atempmask        character*1 atempmask
76        parameter(  atempmask = 's' )        parameter(  atempmask = 's' )
# Line 80  c           fieldperiod=-12 means input Line 80  c           fieldperiod=-12 means input
80        _RL     aqhstartdate        _RL     aqhstartdate
81        _RL     aqhperiod        _RL     aqhperiod
82        _RL     aqhconst        _RL     aqhconst
83        _RL     aqh_exfremo_intercept        _RL     aqh_exfremo_intercept
84        _RL     aqh_exfremo_slope        _RL     aqh_exfremo_slope
85        character*1 aqhmask        character*1 aqhmask
86        parameter(  aqhmask = 's' )        parameter(  aqhmask = 's' )
# Line 90  c           fieldperiod=-12 means input Line 90  c           fieldperiod=-12 means input
90        _RL     sfluxstartdate        _RL     sfluxstartdate
91        _RL     sfluxperiod        _RL     sfluxperiod
92        _RL     sfluxconst        _RL     sfluxconst
93        _RL     sflux_exfremo_intercept        _RL     sflux_exfremo_intercept
94        _RL     sflux_exfremo_slope        _RL     sflux_exfremo_slope
95        character*1 sfluxmask        character*1 sfluxmask
96        parameter(  sfluxmask = 's' )        parameter(  sfluxmask = 's' )
# Line 100  c           fieldperiod=-12 means input Line 100  c           fieldperiod=-12 means input
100        _RL     evapstartdate        _RL     evapstartdate
101        _RL     evapperiod        _RL     evapperiod
102        _RL     evapconst        _RL     evapconst
103        _RL     evap_exfremo_intercept        _RL     evap_exfremo_intercept
104        _RL     evap_exfremo_slope        _RL     evap_exfremo_slope
105        character*1 evapmask        character*1 evapmask
106        parameter(  evapmask = 's' )        parameter(  evapmask = 's' )
# Line 110  c           fieldperiod=-12 means input Line 110  c           fieldperiod=-12 means input
110        _RL     precipstartdate        _RL     precipstartdate
111        _RL     precipperiod        _RL     precipperiod
112        _RL     precipconst        _RL     precipconst
113        _RL     precip_exfremo_intercept        _RL     precip_exfremo_intercept
114        _RL     precip_exfremo_slope        _RL     precip_exfremo_slope
115        character*1 precipmask        character*1 precipmask
116        parameter(  precipmask = 's' )        parameter(  precipmask = 's' )
# Line 120  c           fieldperiod=-12 means input Line 120  c           fieldperiod=-12 means input
120        _RL     snowprecipstartdate        _RL     snowprecipstartdate
121        _RL     snowprecipperiod        _RL     snowprecipperiod
122        _RL     snowprecipconst        _RL     snowprecipconst
123        _RL     snowprecip_exfremo_intercept        _RL     snowprecip_exfremo_intercept
124        _RL     snowprecip_exfremo_slope        _RL     snowprecip_exfremo_slope
125        character*1 snowprecipmask        character*1 snowprecipmask
126        parameter(  snowprecipmask = 's' )        parameter(  snowprecipmask = 's' )
# Line 130  c           fieldperiod=-12 means input Line 130  c           fieldperiod=-12 means input
130        _RL     runoffstartdate        _RL     runoffstartdate
131        _RL     runoffperiod        _RL     runoffperiod
132        _RL     runoffconst        _RL     runoffconst
133        _RL     runoff_exfremo_intercept        _RL     runoff_exfremo_intercept
134        _RL     runoff_exfremo_slope        _RL     runoff_exfremo_slope
135        character*1 runoffmask        character*1 runoffmask
136        parameter(  runoffmask = 's' )        parameter(  runoffmask = 's' )
# Line 140  c           fieldperiod=-12 means input Line 140  c           fieldperiod=-12 means input
140        _RL     ustressstartdate        _RL     ustressstartdate
141        _RL     ustressperiod        _RL     ustressperiod
142        _RL     ustressconst        _RL     ustressconst
143        _RL     ustress_exfremo_intercept        _RL     ustress_exfremo_intercept
144        _RL     ustress_exfremo_slope        _RL     ustress_exfremo_slope
145        character*1 ustressmask        character*1 ustressmask
146        parameter(  ustressmask = 'u' )        parameter(  ustressmask = 'u' )
# Line 150  c           fieldperiod=-12 means input Line 150  c           fieldperiod=-12 means input
150        _RL     vstressstartdate        _RL     vstressstartdate
151        _RL     vstressperiod        _RL     vstressperiod
152        _RL     vstressconst        _RL     vstressconst
153        _RL     vstress_exfremo_intercept        _RL     vstress_exfremo_intercept
154        _RL     vstress_exfremo_slope        _RL     vstress_exfremo_slope
155        character*1 vstressmask        character*1 vstressmask
156        parameter(  vstressmask = 'v' )        parameter(  vstressmask = 'v' )
# Line 160  c           fieldperiod=-12 means input Line 160  c           fieldperiod=-12 means input
160        _RL     uwindstartdate        _RL     uwindstartdate
161        _RL     uwindperiod        _RL     uwindperiod
162        _RL     uwindconst        _RL     uwindconst
163        _RL     uwind_exfremo_intercept        _RL     uwind_exfremo_intercept
164        _RL     uwind_exfremo_slope        _RL     uwind_exfremo_slope
165        character*1 uwindmask        character*1 uwindmask
166        parameter(  uwindmask = 's' )        parameter(  uwindmask = 's' )
# Line 170  c           fieldperiod=-12 means input Line 170  c           fieldperiod=-12 means input
170        _RL     vwindstartdate        _RL     vwindstartdate
171        _RL     vwindperiod        _RL     vwindperiod
172        _RL     vwindconst        _RL     vwindconst
173        _RL     vwind_exfremo_intercept        _RL     vwind_exfremo_intercept
174        _RL     vwind_exfremo_slope        _RL     vwind_exfremo_slope
175        character*1 vwindmask        character*1 vwindmask
176        parameter(  vwindmask = 's' )        parameter(  vwindmask = 's' )
# Line 180  c           fieldperiod=-12 means input Line 180  c           fieldperiod=-12 means input
180        _RL     wspeedstartdate        _RL     wspeedstartdate
181        _RL     wspeedperiod        _RL     wspeedperiod
182        _RL     wspeedconst        _RL     wspeedconst
183        _RL     wspeed_exfremo_intercept        _RL     wspeed_exfremo_intercept
184        _RL     wspeed_exfremo_slope        _RL     wspeed_exfremo_slope
185        character*1 wspeedmask        character*1 wspeedmask
186        parameter(  wspeedmask = 's' )        parameter(  wspeedmask = 's' )
# Line 190  c           fieldperiod=-12 means input Line 190  c           fieldperiod=-12 means input
190        _RL     swfluxstartdate        _RL     swfluxstartdate
191        _RL     swfluxperiod        _RL     swfluxperiod
192        _RL     swfluxconst        _RL     swfluxconst
193        _RL     swflux_exfremo_intercept        _RL     swflux_exfremo_intercept
194        _RL     swflux_exfremo_slope        _RL     swflux_exfremo_slope
195        character*1 swfluxmask        character*1 swfluxmask
196        parameter(  swfluxmask = 's' )        parameter(  swfluxmask = 's' )
# Line 200  c           fieldperiod=-12 means input Line 200  c           fieldperiod=-12 means input
200        _RL     lwfluxstartdate        _RL     lwfluxstartdate
201        _RL     lwfluxperiod        _RL     lwfluxperiod
202        _RL     lwfluxconst        _RL     lwfluxconst
203        _RL     lwflux_exfremo_intercept        _RL     lwflux_exfremo_intercept
204        _RL     lwflux_exfremo_slope        _RL     lwflux_exfremo_slope
205        character*1 lwfluxmask        character*1 lwfluxmask
206        parameter(  lwfluxmask = 's' )        parameter(  lwfluxmask = 's' )
# Line 210  c           fieldperiod=-12 means input Line 210  c           fieldperiod=-12 means input
210        _RL     swdownstartdate        _RL     swdownstartdate
211        _RL     swdownperiod        _RL     swdownperiod
212        _RL     swdownconst        _RL     swdownconst
213        _RL     swdown_exfremo_intercept        _RL     swdown_exfremo_intercept
214        _RL     swdown_exfremo_slope        _RL     swdown_exfremo_slope
215        character*1 swdownmask        character*1 swdownmask
216        parameter(  swdownmask = 's' )        parameter(  swdownmask = 's' )
# Line 220  c           fieldperiod=-12 means input Line 220  c           fieldperiod=-12 means input
220        _RL     lwdownstartdate        _RL     lwdownstartdate
221        _RL     lwdownperiod        _RL     lwdownperiod
222        _RL     lwdownconst        _RL     lwdownconst
223        _RL     lwdown_exfremo_intercept        _RL     lwdown_exfremo_intercept
224        _RL     lwdown_exfremo_slope        _RL     lwdown_exfremo_slope
225        character*1 lwdownmask        character*1 lwdownmask
226        parameter(  lwdownmask = 's' )        parameter(  lwdownmask = 's' )
# Line 230  c           fieldperiod=-12 means input Line 230  c           fieldperiod=-12 means input
230        _RL     apressurestartdate        _RL     apressurestartdate
231        _RL     apressureperiod        _RL     apressureperiod
232        _RL     apressureconst        _RL     apressureconst
233        _RL     apressure_exfremo_intercept        _RL     apressure_exfremo_intercept
234        _RL     apressure_exfremo_slope        _RL     apressure_exfremo_slope
235        character*1 apressuremask        character*1 apressuremask
236        parameter(  apressuremask = 's' )        parameter(  apressuremask = 's' )
# Line 253  c     Calendar data. Line 253  c     Calendar data.
253        _RL     climsstperiod        _RL     climsstperiod
254        _RL     climsstTauRelax        _RL     climsstTauRelax
255        _RL     climsstconst        _RL     climsstconst
256        _RL     climsst_exfremo_intercept        _RL     climsst_exfremo_intercept
257        _RL     climsst_exfremo_slope        _RL     climsst_exfremo_slope
258        character*1 climsstmask        character*1 climsstmask
259        parameter(  climsstmask = 's' )        parameter(  climsstmask = 's' )
# Line 264  c     Calendar data. Line 264  c     Calendar data.
264        _RL     climsssperiod        _RL     climsssperiod
265        _RL     climsssTauRelax        _RL     climsssTauRelax
266        _RL     climsssconst        _RL     climsssconst
267        _RL     climsss_exfremo_intercept        _RL     climsss_exfremo_intercept
268        _RL     climsss_exfremo_slope        _RL     climsss_exfremo_slope
269        character*1 climsssmask        character*1 climsssmask
270        parameter(  climsssmask = 's' )        parameter(  climsssmask = 's' )
# Line 275  c     Calendar data. Line 275  c     Calendar data.
275        _RL     climustrperiod        _RL     climustrperiod
276        _RL     climustrTauRelax        _RL     climustrTauRelax
277        _RL     climustrconst        _RL     climustrconst
278        _RL     climustr_exfremo_intercept        _RL     climustr_exfremo_intercept
279        _RL     climustr_exfremo_slope        _RL     climustr_exfremo_slope
280        character*1 climustrmask        character*1 climustrmask
281        parameter(  climustrmask = 'u' )        parameter(  climustrmask = 'u' )
# Line 286  c     Calendar data. Line 286  c     Calendar data.
286        _RL     climvstrperiod        _RL     climvstrperiod
287        _RL     climvstrTauRelax        _RL     climvstrTauRelax
288        _RL     climvstrconst        _RL     climvstrconst
289        _RL     climvstr_exfremo_intercept        _RL     climvstr_exfremo_intercept
290        _RL     climvstr_exfremo_slope        _RL     climvstr_exfremo_slope
291        character*1 climvstrmask        character*1 climvstrmask
292        parameter(  climvstrmask = 'v' )        parameter(  climvstrmask = 'v' )
# Line 303  c     with pkg/icefront to specify sub-g Line 303  c     with pkg/icefront to specify sub-g
303        _RL     sgrunoffstartdate        _RL     sgrunoffstartdate
304        _RL     sgrunoffperiod        _RL     sgrunoffperiod
305        _RL     sgrunoffconst        _RL     sgrunoffconst
306        _RL     sgrunoff_exfremo_intercept        _RL     sgrunoff_exfremo_intercept
307        _RL     sgrunoff_exfremo_slope        _RL     sgrunoff_exfremo_slope
308        _RL     exf_inscal_sgrunoff        _RL     exf_inscal_sgrunoff
309        character*1 sgrunoffmask        character*1 sgrunoffmask
# Line 373  c     File names. Line 373  c     File names.
373        character*(128) climustrfile        character*(128) climustrfile
374        character*(128) climvstrfile        character*(128) climvstrfile
375    
376    C     exf_verbose        :: print more messages to STDOUT (e.g., when read new rec)
377    C     useExfCheckRange   :: check range of input/output field values
378  C     useExfYearlyFields :: when set, automatically add extension  C     useExfYearlyFields :: when set, automatically add extension
379  C                           _YEAR to input file names; the yearly files need  C                           _YEAR to input file names; the yearly files need
380  C                           to contain all the records that pertain to  C                           to contain all the records that pertain to
# Line 390  C     noNegativeEvap     :: prevent nega Line 392  C     noNegativeEvap     :: prevent nega
392  C     useExfZenAlbedo    :: ocean albedo (direct part) may vary with zenith angle (see select_ZenAlbedo)  C     useExfZenAlbedo    :: ocean albedo (direct part) may vary with zenith angle (see select_ZenAlbedo)
393  C     select_ZenAlbedo   :: switch to different methods to compute albedo (direct part)  C     select_ZenAlbedo   :: switch to different methods to compute albedo (direct part)
394  C                        :: 0 just use exf_albedo  C                        :: 0 just use exf_albedo
395  C                        :: 1 use daily mean albedo from exf_zenithangle_table.F  C                        :: 1 use daily mean albedo from exf_zenithangle_table.F
396  C                        :: 2 use daily mean albedo computed as in pkg/aim_v23  C                        :: 2 use daily mean albedo computed as in pkg/aim_v23
397  C                        :: 3 use daily variable albedo  C                        :: 3 use daily variable albedo
398  C     useExfZenIncoming  :: compute incoming solar radiation along with zenith angle  C     useExfZenIncoming  :: compute incoming solar radiation along with zenith angle
399    
400        logical useExfYearlyFields, twoDigitYear        logical exf_verbose
401        logical useExfCheckRange        logical useExfCheckRange
402          logical useExfYearlyFields, twoDigitYear
403        logical readStressOnAgrid        logical readStressOnAgrid
404        logical readStressOnCgrid        logical readStressOnCgrid
405        logical stressIsOnCgrid        logical stressIsOnCgrid
# Line 409  C     useExfZenIncoming  :: compute inco Line 412  C     useExfZenIncoming  :: compute inco
412        logical useExfZenIncoming        logical useExfZenIncoming
413    
414        common /exf_param_l/        common /exf_param_l/
415         &       exf_verbose, useExfCheckRange,
416       &       useExfYearlyFields, twoDigitYear,       &       useExfYearlyFields, twoDigitYear,
      &       useExfCheckRange,  
417       &       useExfZenAlbedo, useExfZenIncoming,       &       useExfZenAlbedo, useExfZenIncoming,
418       &       readStressOnAgrid, readStressOnCgrid,       &       readStressOnAgrid, readStressOnCgrid,
419       &       stressIsOnCgrid, useStabilityFct_overIce,       &       stressIsOnCgrid, useStabilityFct_overIce,
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22