/[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.11 by dimitri, Thu Oct 11 01:29:16 2007 UTC revision 1.12 by dimitri, Thu Oct 11 10:30:34 2007 UTC
# Line 27  c     == global variables == Line 27  c     == global variables ==
27  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
28  # include "EXF_PARAM.h"  # include "EXF_PARAM.h"
29  #endif  #endif
30  #ifdef ALLOW_PTRACERS.h  #if (defined (ALLOW_SEAICE) || defined (ALLOW_PTRACERS))
31  # include "PARAMS.h"  # include "PARAMS.h"
32    #endif
33    #ifdef ALLOW_PTRACERS
34  # include "PTRACERS_SIZE.h"  # include "PTRACERS_SIZE.h"
35  # include "PTRACERS.h"  # include "PTRACERS.h"
36  # include "OBCS_PTRACERS.h"  # include "OBCS_PTRACERS.h"
# Line 80  c     == end of interface == Line 82  c     == end of interface ==
82       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
83       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
84  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
85        call exf_set_obcs_x (  OBNa, OBNa0, OBNa1, OBNafile, 's'        IF (useSEAICE) THEN
86           call exf_set_obcs_x (  OBNa, OBNa0, OBNa1, OBNafile, 's'
87       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
88       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
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          ENDIF
93  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
94  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
95        if ( usePTRACERS ) then        if ( usePTRACERS ) then
# Line 124  c     == end of interface == Line 128  c     == end of interface ==
128       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
129       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
130  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
131        call exf_set_obcs_x (  OBSa, OBSa0, OBSa1, OBSafile, 's'        IF (useSEAICE) THEN
132           call exf_set_obcs_x (  OBSa, OBSa0, OBSa1, OBSafile, 's'
133       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
134       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
135        call exf_set_obcs_x (  OBSh, OBSh0, OBSh1, OBShfile, 's'         call exf_set_obcs_x (  OBSh, OBSh0, OBSh1, OBShfile, 's'
136       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
137       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
138          ENDIF
139  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
140  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
141        if ( usePTRACERS ) then        if ( usePTRACERS ) then
# Line 168  c     == end of interface == Line 174  c     == end of interface ==
174       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
175       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
176  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
177        call exf_set_obcs_y (  OBEa, OBEa0, OBEa1, OBEafile, 's'        IF (useSEAICE) THEN
178           call exf_set_obcs_y (  OBEa, OBEa0, OBEa1, OBEafile, 's'
179       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
180       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
181        call exf_set_obcs_y (  OBEh, OBEh0, OBEh1, OBEhfile, 's'         call exf_set_obcs_y (  OBEh, OBEh0, OBEh1, OBEhfile, 's'
182       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
183       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
184          ENDIF
185  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
186  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
187        if ( usePTRACERS ) then        if ( usePTRACERS ) then
# Line 212  c     == end of interface == Line 220  c     == end of interface ==
220       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
221       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
222  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
223        call exf_set_obcs_y (  OBWa, OBWa0, OBWa1, OBWafile, 's'        IF (useSEAICE) THEN
224           call exf_set_obcs_y (  OBWa, OBWa0, OBWa1, OBWafile, 's'
225       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
226       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
227        call exf_set_obcs_y (  OBWh, OBWh0, OBWh1, OBWhfile, 's'         call exf_set_obcs_y (  OBWh, OBWh0, OBWh1, OBWhfile, 's'
228       I                     , fac, first, changed, count0, count1       I                     , fac, first, changed, count0, count1
229       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
230          ENDIF
231  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
232  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
233        if ( usePTRACERS ) then        if ( usePTRACERS ) then
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22