/[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.18 by gforget, Thu Apr 15 00:47:00 2010 UTC revision 1.19 by heimbach, Mon Apr 26 03:15:23 2010 UTC
# Line 261  c     Calendar data. Line 261  c     Calendar data.
261        character*1 climsssmask        character*1 climsssmask
262        parameter(  climsssmask = 's' )        parameter(  climsssmask = 's' )
263    
264          integer climustrstartdate1
265          integer climustrstartdate2
266          _RL     climustrstartdate
267          _RL     climustrperiod
268          _RL     climustrTauRelax
269          _RL     climustrconst
270          _RL     climustr_exfremo_intercept
271          _RL     climustr_exfremo_slope
272          character*1 climustrmask
273          parameter(  climustrmask = 'u' )
274    
275          integer climvstrstartdate1
276          integer climvstrstartdate2
277          _RL     climvstrstartdate
278          _RL     climvstrperiod
279          _RL     climvstrTauRelax
280          _RL     climvstrconst
281          _RL     climvstr_exfremo_intercept
282          _RL     climvstr_exfremo_slope
283          character*1 climvstrmask
284          parameter(  climvstrmask = 'v' )
285    
286  c     freezing temperature is the minimum temperature allowed, used  c     freezing temperature is the minimum temperature allowed, used
287  c     to reset climatological temperatures fields where they have  c     to reset climatological temperatures fields where they have
288  c     values below climtempfreeze  c     values below climtempfreeze
# Line 327  c     File names. Line 349  c     File names.
349        character*(128) areamaskfile        character*(128) areamaskfile
350        character*(128) climsstfile        character*(128) climsstfile
351        character*(128) climsssfile        character*(128) climsssfile
352          character*(128) climustrfile
353          character*(128) climvstrfile
354    
355  C     useExfYearlyFields :: when set, automatically add extension  C     useExfYearlyFields :: when set, automatically add extension
356  C                           _YEAR to input file names; the yearly files need  C                           _YEAR to input file names; the yearly files need
# Line 364  C     useExfZenIncoming  :: compute inco Line 388  C     useExfZenIncoming  :: compute inco
388        logical useExfZenIncoming        logical useExfZenIncoming
389    
390        common /exf_param_l/        common /exf_param_l/
391       &                     useExfYearlyFields, twoDigitYear,       &       useExfYearlyFields, twoDigitYear,
392       &                     useExfCheckRange,       &       useExfCheckRange,
393       &                     useExfZenAlbedo, useExfZenIncoming,       &       useExfZenAlbedo, useExfZenIncoming,
394       &                     readStressOnAgrid, readStressOnCgrid,       &       readStressOnAgrid, readStressOnCgrid,
395       &                     stressIsOnCgrid, useStabilityFct_overIce,       &       stressIsOnCgrid, useStabilityFct_overIce,
396       &                     useRelativeWind, noNegativeEvap       &       useRelativeWind, noNegativeEvap
397        common /exf_param_i/        common /exf_param_i/
398       &                     select_ZenAlbedo,       &       select_ZenAlbedo,
399       &                     hfluxstartdate1,   hfluxstartdate2,       &       hfluxstartdate1,   hfluxstartdate2,
400       &                     atempstartdate1,   atempstartdate2,       &       atempstartdate1,   atempstartdate2,
401       &                     aqhstartdate1,     aqhstartdate2,       &       aqhstartdate1,     aqhstartdate2,
402       &                     sfluxstartdate1,   sfluxstartdate2,       &       sfluxstartdate1,   sfluxstartdate2,
403       &                     evapstartdate1,    evapstartdate2,       &       evapstartdate1,    evapstartdate2,
404       &                     runoffstartdate1,  runoffstartdate2,       &       runoffstartdate1,  runoffstartdate2,
405       &                     precipstartdate1,  precipstartdate2,       &       precipstartdate1,  precipstartdate2,
406       &                     snowprecipstartdate1, snowprecipstartdate2,       &       snowprecipstartdate1, snowprecipstartdate2,
407       &                     ustressstartdate1, ustressstartdate2,       &       ustressstartdate1, ustressstartdate2,
408       &                     vstressstartdate1, vstressstartdate2,       &       vstressstartdate1, vstressstartdate2,
409       &                     uwindstartdate1,   uwindstartdate2,       &       uwindstartdate1,   uwindstartdate2,
410       &                     vwindstartdate1,   vwindstartdate2,       &       vwindstartdate1,   vwindstartdate2,
411       &                     wspeedstartdate1,  wspeedstartdate2,       &       wspeedstartdate1,  wspeedstartdate2,
412       &                     swfluxstartdate1,  swfluxstartdate2,       &       swfluxstartdate1,  swfluxstartdate2,
413       &                     lwfluxstartdate1,  lwfluxstartdate2,       &       lwfluxstartdate1,  lwfluxstartdate2,
414       &                     swdownstartdate1,  swdownstartdate2,       &       swdownstartdate1,  swdownstartdate2,
415       &                     lwdownstartdate1,  lwdownstartdate2,       &       lwdownstartdate1,  lwdownstartdate2,
416       &                     obcsNstartdate1,   obcsNstartdate2,       &       obcsNstartdate1,   obcsNstartdate2,
417       &                     obcsSstartdate1,   obcsSstartdate2,       &       obcsSstartdate1,   obcsSstartdate2,
418       &                     obcsEstartdate1,   obcsEstartdate2,       &       obcsEstartdate1,   obcsEstartdate2,
419       &                     obcsWstartdate1,   obcsWstartdate2,       &       obcsWstartdate1,   obcsWstartdate2,
420       &                     siobNstartdate1,   siobNstartdate2,       &       siobNstartdate1,   siobNstartdate2,
421       &                     siobSstartdate1,   siobSstartdate2,       &       siobSstartdate1,   siobSstartdate2,
422       &                     siobEstartdate1,   siobEstartdate2,       &       siobEstartdate1,   siobEstartdate2,
423       &                     siobWstartdate1,   siobWstartdate2,       &       siobWstartdate1,   siobWstartdate2,
424       &                     apressurestartdate1,apressurestartdate2,       &       apressurestartdate1,apressurestartdate2,
425       &                     areamaskstartdate1,areamaskstartdate2       &       areamaskstartdate1,areamaskstartdate2
426    
427        common /exf_param_r/        common /exf_param_r/
428       &                     year2sec,          windstressmax,       &       year2sec,          windstressmax,
429       &                     repeatPeriod,      exf_monFreq,       &       repeatPeriod,      exf_monFreq,
430       &                     exf_scal_BulkCdn,       &       exf_scal_BulkCdn,
431       &                     hfluxperiod,       hfluxstartdate,       &       hfluxperiod,       hfluxstartdate,
432       &                     atempperiod,       atempstartdate,       &       atempperiod,       atempstartdate,
433       &                     aqhperiod,         aqhstartdate,       &       aqhperiod,         aqhstartdate,
434       &                     sfluxperiod,       sfluxstartdate,       &       sfluxperiod,       sfluxstartdate,
435       &                     evapperiod,        evapstartdate,       &       evapperiod,        evapstartdate,
436       &                     precipperiod,      precipstartdate,       &       precipperiod,      precipstartdate,
437       &                     snowprecipperiod,  snowprecipstartdate,       &       snowprecipperiod,  snowprecipstartdate,
438       &                     runoffperiod,      runoffstartdate,       &       runoffperiod,      runoffstartdate,
439       &                     ustressperiod,     ustressstartdate,       &       ustressperiod,     ustressstartdate,
440       &                     vstressperiod,     vstressstartdate,       &       vstressperiod,     vstressstartdate,
441       &                     uwindperiod,       uwindstartdate,       &       uwindperiod,       uwindstartdate,
442       &                     vwindperiod,       vwindstartdate,       &       vwindperiod,       vwindstartdate,
443       &                     wspeedperiod,      wspeedstartdate,       &       wspeedperiod,      wspeedstartdate,
444       &                     swfluxperiod,      swfluxstartdate,       &       swfluxperiod,      swfluxstartdate,
445       &                     lwfluxperiod,      lwfluxstartdate,       &       lwfluxperiod,      lwfluxstartdate,
446       &                     swdownperiod,      swdownstartdate,       &       swdownperiod,      swdownstartdate,
447       &                     lwdownperiod,      lwdownstartdate,       &       lwdownperiod,      lwdownstartdate,
448       &                     obcsNperiod,       obcsNstartdate,       &       obcsNperiod,       obcsNstartdate,
449       &                     obcsSperiod,       obcsSstartdate,       &       obcsSperiod,       obcsSstartdate,
450       &                     obcsEperiod,       obcsEstartdate,       &       obcsEperiod,       obcsEstartdate,
451       &                     obcsWperiod,       obcsWstartdate,       &       obcsWperiod,       obcsWstartdate,
452       &                     siobNperiod,       siobNstartdate,       &       siobNperiod,       siobNstartdate,
453       &                     siobSperiod,       siobSstartdate,       &       siobSperiod,       siobSstartdate,
454       &                     siobEperiod,       siobEstartdate,       &       siobEperiod,       siobEstartdate,
455       &                     siobWperiod,       siobWstartdate,       &       siobWperiod,       siobWstartdate,
456       &                     apressureperiod,   apressurestartdate,       &       apressureperiod,   apressurestartdate,
457       &                     areamaskperiod,   areamaskstartdate,       &       areamaskperiod,   areamaskstartdate,
458       &                     hfluxconst,       &       hfluxconst,
459       &                     atempconst,       &       atempconst,
460       &                     aqhconst,       &       aqhconst,
461       &                     sfluxconst,       &       sfluxconst,
462       &                     evapconst,       &       evapconst,
463       &                     precipconst,       &       precipconst,
464       &                     snowprecipconst,       &       snowprecipconst,
465       &                     runoffconst,       &       runoffconst,
466       &                     ustressconst,       &       ustressconst,
467       &                     vstressconst,       &       vstressconst,
468       &                     uwindconst,       &       uwindconst,
469       &                     vwindconst,       &       vwindconst,
470       &                     wspeedconst,       &       wspeedconst,
471       &                     swfluxconst,       &       swfluxconst,
472       &                     lwfluxconst,       &       lwfluxconst,
473       &                     swdownconst,       &       swdownconst,
474       &                     lwdownconst,       &       lwdownconst,
475       &                     apressureconst,       &       apressureconst,
476       &                     areamaskTauRelax,       &       areamaskTauRelax,
477       &                     areamaskconst       &       areamaskconst
478    
479        common /exf_param_trend_removal/        common /exf_param_trend_removal/
480       &                     hflux_exfremo_intercept,       &       hflux_exfremo_intercept,
481       &                     atemp_exfremo_intercept,       &       atemp_exfremo_intercept,
482       &                     aqh_exfremo_intercept,       &       aqh_exfremo_intercept,
483       &                     sflux_exfremo_intercept,       &       sflux_exfremo_intercept,
484       &                     evap_exfremo_intercept,       &       evap_exfremo_intercept,
485       &                     precip_exfremo_intercept,       &       precip_exfremo_intercept,
486       &                     snowprecip_exfremo_intercept,       &       snowprecip_exfremo_intercept,
487       &                     runoff_exfremo_intercept,       &       runoff_exfremo_intercept,
488       &                     ustress_exfremo_intercept,       &       ustress_exfremo_intercept,
489       &                     vstress_exfremo_intercept,       &       vstress_exfremo_intercept,
490       &                     uwind_exfremo_intercept,       &       uwind_exfremo_intercept,
491       &                     vwind_exfremo_intercept,       &       vwind_exfremo_intercept,
492       &                     wspeed_exfremo_intercept,       &       wspeed_exfremo_intercept,
493       &                     swflux_exfremo_intercept,       &       swflux_exfremo_intercept,
494       &                     lwflux_exfremo_intercept,       &       lwflux_exfremo_intercept,
495       &                     swdown_exfremo_intercept,       &       swdown_exfremo_intercept,
496       &                     lwdown_exfremo_intercept,       &       lwdown_exfremo_intercept,
497       &                     apressure_exfremo_intercept,       &       apressure_exfremo_intercept,
498       &                     areamask_exfremo_intercept,       &       areamask_exfremo_intercept,
499       &                     hflux_exfremo_slope,       &       hflux_exfremo_slope,
500       &                     atemp_exfremo_slope,       &       atemp_exfremo_slope,
501       &                     aqh_exfremo_slope,       &       aqh_exfremo_slope,
502       &                     sflux_exfremo_slope,       &       sflux_exfremo_slope,
503       &                     evap_exfremo_slope,       &       evap_exfremo_slope,
504       &                     precip_exfremo_slope,       &       precip_exfremo_slope,
505       &                     snowprecip_exfremo_slope,       &       snowprecip_exfremo_slope,
506       &                     runoff_exfremo_slope,       &       runoff_exfremo_slope,
507       &                     ustress_exfremo_slope,       &       ustress_exfremo_slope,
508       &                     vstress_exfremo_slope,       &       vstress_exfremo_slope,
509       &                     uwind_exfremo_slope,       &       uwind_exfremo_slope,
510       &                     vwind_exfremo_slope,       &       vwind_exfremo_slope,
511       &                     wspeed_exfremo_slope,       &       wspeed_exfremo_slope,
512       &                     swflux_exfremo_slope,       &       swflux_exfremo_slope,
513       &                     lwflux_exfremo_slope,       &       lwflux_exfremo_slope,
514       &                     swdown_exfremo_slope,       &       swdown_exfremo_slope,
515       &                     lwdown_exfremo_slope,       &       lwdown_exfremo_slope,
516       &                     apressure_exfremo_slope,       &       apressure_exfremo_slope,
517       &                     areamask_exfremo_slope       &       areamask_exfremo_slope
518    
519        common /exf_param_c/        common /exf_param_c/
520       &                     hfluxfile,       &       hfluxfile,
521       &                     atempfile,       &       atempfile,
522       &                     aqhfile,       &       aqhfile,
523       &                     sfluxfile,       &       sfluxfile,
524       &                     evapfile,       &       evapfile,
525       &                     precipfile,       &       precipfile,
526       &                     snowprecipfile,       &       snowprecipfile,
527       &                     runofffile,       &       runofffile,
528       &                     ustressfile,       &       ustressfile,
529       &                     vstressfile,       &       vstressfile,
530       &                     uwindfile,       &       uwindfile,
531       &                     vwindfile,       &       vwindfile,
532       &                     wspeedfile,       &       wspeedfile,
533       &                     swfluxfile,       &       swfluxfile,
534       &                     lwfluxfile,       &       lwfluxfile,
535       &                     swdownfile,       &       swdownfile,
536       &                     lwdownfile,       &       lwdownfile,
537       &                     apressurefile,       &       apressurefile,
538       &                     areamaskfile       &       areamaskfile
539    
540        common /exf_clim_i/        common /exf_clim_i/
541       &                        climsststartdate1,  climsststartdate2,       &       climsststartdate1,  climsststartdate2,
542       &                        climsssstartdate1,  climsssstartdate2       &       climsssstartdate1,  climsssstartdate2,
543         &       climustrstartdate1,  climustrstartdate2,
544         &       climvstrstartdate1,  climvstrstartdate2
545    
546        common /exf_clim_c/        common /exf_clim_c/
547       &                        climsstfile,       &       climsstfile,
548       &                        climsssfile       &       climsssfile,
549         &       climustrfile,
550         &       climvstrfile
551    
552        common /exf_clim_r/        common /exf_clim_r/
553       &                        climtempfreeze,       &       climtempfreeze,
554       &                        climsstperiod,      climsststartdate,       &       climsstperiod,      climsststartdate,
555       &                        climsssperiod,      climsssstartdate,       &       climsssperiod,      climsssstartdate,
556       &                        climsstTauRelax,    climsssTauRelax,       &       climustrperiod,     climustrstartdate,
557       &                        climsstconst,       climsssconst,       &       climvstrperiod,     climvstrstartdate,
558       &     climsst_exfremo_intercept, climsst_exfremo_slope,       &       climsstTauRelax,    climsssTauRelax,
559       &     climsss_exfremo_intercept, climsss_exfremo_slope,       &       climustrTauRelax,   climvstrTauRelax,
560       &     exf_inscal_climsst, exf_inscal_climsss       &       climsstconst,       climsssconst,
561         &       climustrconst,      climvstrconst,
562         &       climsst_exfremo_intercept, climsst_exfremo_slope,
563         &       climsss_exfremo_intercept, climsss_exfremo_slope,
564         &       climustr_exfremo_intercept, climustr_exfremo_slope,
565         &       climvstr_exfremo_intercept, climvstr_exfremo_slope,
566         &       exf_inscal_climsst, exf_inscal_climsss,
567         &       exf_inscal_climustr, exf_inscal_climvstr
568    
569  c     file precision and field type  c     file precision and field type
570    
571        common /exf_param_type/        common /exf_param_type/
572       &                     exf_iprec,       &       exf_iprec,
573       &                     exf_iprec_obcs,       &       exf_iprec_obcs,
574       &                     exf_yftype       &       exf_yftype
575    
576        integer exf_iprec        integer exf_iprec
577        integer exf_iprec_obcs        integer exf_iprec_obcs
# Line 570  c     exf_outscale_*    output scaling f Line 605  c     exf_outscale_*    output scaling f
605        _RL     exf_inscal_lwdown        _RL     exf_inscal_lwdown
606        _RL     exf_inscal_climsst        _RL     exf_inscal_climsst
607        _RL     exf_inscal_climsss        _RL     exf_inscal_climsss
608          _RL     exf_inscal_climustr
609          _RL     exf_inscal_climvstr
610    
611        _RL     exf_outscal_hflux        _RL     exf_outscal_hflux
612        _RL     exf_outscal_sflux        _RL     exf_outscal_sflux
# Line 749  c for lat interpolation, arraysize curre Line 786  c for lat interpolation, arraysize curre
786        _RL climsss_lon0, climsss_lon_inc        _RL climsss_lon0, climsss_lon_inc
787        _RL climsss_lat0, climsss_lat_inc(MAX_LAT_INC)        _RL climsss_lat0, climsss_lat_inc(MAX_LAT_INC)
788        INTEGER climsss_nlon, climsss_nlat        INTEGER climsss_nlon, climsss_nlat
789          _RL climustr_lon0, climustr_lon_inc
790          _RL climustr_lat0, climustr_lat_inc(MAX_LAT_INC)
791          INTEGER climustr_nlon, climustr_nlat
792          _RL climvstr_lon0, climvstr_lon_inc
793          _RL climvstr_lat0, climvstr_lat_inc(MAX_LAT_INC)
794          INTEGER climvstr_nlon, climvstr_nlat
795    
796        common /exf_clim_interpolation/        common /exf_clim_interpolation/
797       & climsst_lon0, climsst_lon_inc,       & climsst_lon0, climsst_lon_inc,
798       & climsst_lat0, climsst_lat_inc,       & climsst_lat0, climsst_lat_inc,
799       & climsst_nlon, climsst_nlat,       & climsst_nlon, climsst_nlat,
800       & climsss_lon0, climsss_lon_inc,       & climsss_lon0, climsss_lon_inc,
801       & climsss_lat0, climsss_lat_inc,       & climsss_lat0, climsss_lat_inc,
802       & climsss_nlon, climsss_nlat       & climsss_nlon, climsss_nlat,
803         & climustr_lon0, climustr_lon_inc,
804         & climustr_lat0, climustr_lat_inc,
805         & climustr_nlon, climustr_nlat,
806         & climvstr_lon0, climvstr_lon_inc,
807         & climvstr_lat0, climvstr_lat_inc,
808         & climvstr_nlon, climvstr_nlat
809    
810  #endif  #endif
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22