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

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

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

revision 1.12 by dimitri, Wed Mar 17 23:08:09 2004 UTC revision 1.13 by heimbach, Mon Oct 11 16:41:01 2004 UTC
# Line 52  c     == local variables == Line 52  c     == local variables ==
52        integer count0, count1        integer count0, count1
53        _RL     fac        _RL     fac
54        integer bi, bj, i, j, interp_method        integer bi, bj, i, j, interp_method
55          integer year0, year1
56    
57  c     == end of interface ==  c     == end of interface ==
58    
# Line 70  c     Jan. through Dec. Line 71  c     Jan. through Dec.
71           else           else
72    
73  c     get record numbers and interpolation factor for climsst  c     get record numbers and interpolation factor for climsst
74    
75              call exf_GetFFieldRec(              call exf_GetFFieldRec(
76       I           climsststartdate, climsstperiod       I           climsststartdate, climsstperiod
77         I           , climsststartdate1, climsststartdate2
78         I           , .false.
79       O           , fac, first, changed       O           , fac, first, changed
80       O           , count0, count1       O           , count0, count1, year0, year1
81       I           , mycurrenttime, mycurrentiter, mythid       I           , mycurrenttime, mycurrentiter, mythid
82       &           )       &           )
83    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22