/[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.2 by mlosch, Fri Sep 24 12:32:09 2004 UTC revision 1.3 by heimbach, Mon Oct 11 16:41:01 2004 UTC
# Line 48  c     == end of interface == Line 48  c     == end of interface ==
48  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
49        call exf_getffieldrec(        call exf_getffieldrec(
50       I                       obcsNstartdate, obcsNperiod       I                       obcsNstartdate, obcsNperiod
51       O                     , fac, first, changed, count0, count1       I                     , obcsNstartdate1, obcsNstartdate2
52         I                     , false.
53         O                     , fac, first, changed,
54         O                     , count0, count1, year0, year1
55       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
56       &                     )       &                     )
57    
# Line 69  c     == end of interface == Line 72  c     == end of interface ==
72  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
73        call exf_getffieldrec(        call exf_getffieldrec(
74       I                       obcsSstartdate, obcsSperiod       I                       obcsSstartdate, obcsSperiod
75         I                     , obcsSstartdate1, obcsSstartdate2
76         I                     , false.
77       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed, count0, count1
78       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
79       &                     )       &                     )
# Line 91  c     == end of interface == Line 96  c     == end of interface ==
96  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
97        call exf_getffieldrec(        call exf_getffieldrec(
98       I                       obcsEstartdate, obcsEperiod       I                       obcsEstartdate, obcsEperiod
99         I                     , obcsEstartdate1, obcsEstartdate2
100         I                     , false.
101       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed, count0, count1
102       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
103       &                     )       &                     )
# Line 113  c     == end of interface == Line 120  c     == end of interface ==
120  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
121        call exf_getffieldrec(        call exf_getffieldrec(
122       I                       obcsWstartdate, obcsWperiod       I                       obcsWstartdate, obcsWperiod
123         I                     , obcsWstartdate1, obcsWstartdate2
124         I                     , false.
125       O                     , fac, first, changed, count0, count1       O                     , fac, first, changed, count0, count1
126       I                     , mycurrenttime, mycurrentiter, mythid       I                     , mycurrenttime, mycurrentiter, mythid
127       &                     )       &                     )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22