/[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.12 by dimitri, Thu Oct 11 10:30:34 2007 UTC revision 1.13 by dimitri, Tue Oct 23 08:25:28 2007 UTC
# Line 89  c     == end of interface == Line 89  c     == end of interface ==
89         call exf_set_obcs_x (  OBNh, OBNh0, OBNh1, OBNhfile, 's'         call exf_set_obcs_x (  OBNh, OBNh0, OBNh1, OBNhfile, 's'
90       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
91       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
92           call exf_set_obcs_x (  OBNsl, OBNsl0, OBNsl1, OBNslfile, 's'
93         I                     , fac, first, changed, count0, count1
94         I                     , mycurrenttime, mycurrentiter, mythid )
95           call exf_set_obcs_x (  OBNsn, OBNsn0, OBNsn1, OBNsnfile, 's'
96         I                     , fac, first, changed, count0, count1
97         I                     , mycurrenttime, mycurrentiter, mythid )
98        ENDIF        ENDIF
99  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
100  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 135  c     == end of interface == Line 141  c     == end of interface ==
141         call exf_set_obcs_x (  OBSh, OBSh0, OBSh1, OBShfile, 's'         call exf_set_obcs_x (  OBSh, OBSh0, OBSh1, OBShfile, 's'
142       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
143       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
144           call exf_set_obcs_x (  OBSsl, OBSsl0, OBSsl1, OBSslfile, 's'
145         I                     , fac, first, changed, count0, count1
146         I                     , mycurrenttime, mycurrentiter, mythid )
147           call exf_set_obcs_x (  OBSsn, OBSsn0, OBSsn1, OBSsnfile, 's'
148         I                     , fac, first, changed, count0, count1
149         I                     , mycurrenttime, mycurrentiter, mythid )
150        ENDIF        ENDIF
151  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
152  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 181  c     == end of interface == Line 193  c     == end of interface ==
193         call exf_set_obcs_y (  OBEh, OBEh0, OBEh1, OBEhfile, 's'         call exf_set_obcs_y (  OBEh, OBEh0, OBEh1, OBEhfile, 's'
194       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
195       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
196           call exf_set_obcs_y (  OBEsl, OBEsl0, OBEsl1, OBEslfile, 's'
197         I                     , fac, first, changed, count0, count1
198         I                     , mycurrenttime, mycurrentiter, mythid )
199           call exf_set_obcs_y (  OBEsn, OBEsn0, OBEsn1, OBEsnfile, 's'
200         I                     , fac, first, changed, count0, count1
201         I                     , mycurrenttime, mycurrentiter, mythid )
202        ENDIF        ENDIF
203  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
204  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
# Line 227  c     == end of interface == Line 245  c     == end of interface ==
245         call exf_set_obcs_y (  OBWh, OBWh0, OBWh1, OBWhfile, 's'         call exf_set_obcs_y (  OBWh, OBWh0, OBWh1, OBWhfile, 's'
246       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
247       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
248           call exf_set_obcs_y (  OBWsl, OBWsl0, OBWsl1, OBWslfile, 's'
249         I                     , fac, first, changed, count0, count1
250         I                     , mycurrenttime, mycurrentiter, mythid )
251           call exf_set_obcs_y (  OBWsn, OBWsn0, OBWsn1, OBWsnfile, 's'
252         I                     , fac, first, changed, count0, count1
253         I                     , mycurrenttime, mycurrentiter, mythid )
254        ENDIF        ENDIF
255  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
256  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22