/[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.4 by heimbach, Thu Oct 14 11:53:20 2004 UTC
# Line 49  c     == end of interface == Line 49  c     == end of interface ==
49        call exf_getffieldrec(        call exf_getffieldrec(
50       I                       obcsNstartdate, obcsNperiod       I                       obcsNstartdate, obcsNperiod
51       I                     , obcsNstartdate1, obcsNstartdate2       I                     , obcsNstartdate1, obcsNstartdate2
52       I                     , false.       I                     , .false.
53       O                     , fac, first, changed,       O                     , fac, first, changed,
54       O                     , count0, count1, year0, year1       O                     , count0, count1, year0, year1
55       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
# Line 73  c     == end of interface == Line 73  c     == end of interface ==
73        call exf_getffieldrec(        call exf_getffieldrec(
74       I                       obcsSstartdate, obcsSperiod       I                       obcsSstartdate, obcsSperiod
75       I                     , obcsSstartdate1, obcsSstartdate2       I                     , obcsSstartdate1, obcsSstartdate2
76       I                     , false.       I                     , .false.
77       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
78         O                     , count0, count1, year0, year1
79       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
80       &                     )       &                     )
81    
# Line 97  c     == end of interface == Line 98  c     == end of interface ==
98        call exf_getffieldrec(        call exf_getffieldrec(
99       I                       obcsEstartdate, obcsEperiod       I                       obcsEstartdate, obcsEperiod
100       I                     , obcsEstartdate1, obcsEstartdate2       I                     , obcsEstartdate1, obcsEstartdate2
101       I                     , false.       I                     , .false.
102       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
103         O                     , count0, count1, year0, year1
104       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
105       &                     )       &                     )
106    
# Line 121  c     == end of interface == Line 123  c     == end of interface ==
123        call exf_getffieldrec(        call exf_getffieldrec(
124       I                       obcsWstartdate, obcsWperiod       I                       obcsWstartdate, obcsWperiod
125       I                     , obcsWstartdate1, obcsWstartdate2       I                     , obcsWstartdate1, obcsWstartdate2
126       I                     , false.       I                     , .false.
127       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed
128         O                     , count0, count1, year0, year1
129       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
130       &                     )       &                     )
131    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22