/[MITgcm]/MITgcm/pkg/obcs/obcs_prescribe_read.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_prescribe_read.F

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

revision 1.3 by heimbach, Mon Oct 11 16:41:01 2004 UTC revision 1.5 by heimbach, Thu Oct 14 11:56:43 2004 UTC
# Line 40  c     == local variables == Line 40  c     == local variables ==
40    
41        logical first, changed        logical first, changed
42        integer count0, count1        integer count0, count1
43          integer year0, year1
44        _RL     fac        _RL     fac
45    
46  c     == end of interface ==  c     == end of interface ==
# Line 49  c     == end of interface == Line 50  c     == end of interface ==
50        call exf_getffieldrec(        call exf_getffieldrec(
51       I                       obcsNstartdate, obcsNperiod       I                       obcsNstartdate, obcsNperiod
52       I                     , obcsNstartdate1, obcsNstartdate2       I                     , obcsNstartdate1, obcsNstartdate2
53       I                     , false.       I                     , .false.
54       O                     , fac, first, changed,       O                     , fac, first, changed,
55       O                     , count0, count1, year0, year1       O                     , count0, count1, year0, year1
56       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
# Line 73  c     == end of interface == Line 74  c     == end of interface ==
74        call exf_getffieldrec(        call exf_getffieldrec(
75       I                       obcsSstartdate, obcsSperiod       I                       obcsSstartdate, obcsSperiod
76       I                     , obcsSstartdate1, obcsSstartdate2       I                     , obcsSstartdate1, obcsSstartdate2
77       I                     , false.       I                     , .false.
78       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
79         O                     , count0, count1, year0, year1
80       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
81       &                     )       &                     )
82    
# Line 97  c     == end of interface == Line 99  c     == end of interface ==
99        call exf_getffieldrec(        call exf_getffieldrec(
100       I                       obcsEstartdate, obcsEperiod       I                       obcsEstartdate, obcsEperiod
101       I                     , obcsEstartdate1, obcsEstartdate2       I                     , obcsEstartdate1, obcsEstartdate2
102       I                     , false.       I                     , .false.
103       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
104         O                     , count0, count1, year0, year1
105       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
106       &                     )       &                     )
107    
# Line 121  c     == end of interface == Line 124  c     == end of interface ==
124        call exf_getffieldrec(        call exf_getffieldrec(
125       I                       obcsWstartdate, obcsWperiod       I                       obcsWstartdate, obcsWperiod
126       I                     , obcsWstartdate1, obcsWstartdate2       I                     , obcsWstartdate1, obcsWstartdate2
127       I                     , false.       I                     , .false.
128       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
129         O                     , count0, count1, year0, year1
130       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
131       &                     )       &                     )
132    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22