/[MITgcm]/MITgcm/pkg/exf/exf_set_gen.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_set_gen.F

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

revision 1.24 by mlosch, Fri Jan 25 16:02:56 2008 UTC revision 1.25 by dimitri, Tue Jan 29 11:25:53 2008 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6        subroutine exf_set_gen(        subroutine exf_set_gen(
7       &     genfile, genstartdate, genperiod,       &     genfile, genstartdate, genperiod,
      &     genstartdate1, genstartdate2,  
8       &     exf_inscal_gen, genremove_intercept, genremove_slope,       &     exf_inscal_gen, genremove_intercept, genremove_slope,
9       &     genfld, gen0, gen1, genmask,       &     genfld, gen0, gen1, genmask,
10  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
# Line 49  c     == global variables == Line 48  c     == global variables ==
48    
49  c     == routine arguments ==  c     == routine arguments ==
50    
       integer genstartdate1, genstartdate2  
51        _RL genstartdate, genperiod        _RL genstartdate, genperiod
52        _RL exf_inscal_gen        _RL exf_inscal_gen
53        _RL genremove_intercept, genremove_slope        _RL genremove_intercept, genremove_slope
# Line 117  c     Jan. through Dec. Line 115  c     Jan. through Dec.
115  c     get record numbers and interpolation factor for gen  c     get record numbers and interpolation factor for gen
116              call exf_GetFFieldRec(              call exf_GetFFieldRec(
117       I           genstartdate, genperiod       I           genstartdate, genperiod
      I           , genstartdate1, genstartdate2  
118       I           , useExfYearlyFields       I           , useExfYearlyFields
119       O           , fac, first, changed       O           , fac, first, changed
120       O           , count0, count1, year0, year1       O           , count0, count1, year0, year1
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22