/[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.14 by dimitri, Fri Oct 26 02:00:47 2007 UTC revision 1.15 by jmc, Mon Nov 5 19:19:05 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  # include "OBCS_OPTIONS.h"  # include "OBCS_OPTIONS.h"
5    
6        subroutine obcs_prescribe_read (        subroutine obcs_prescribe_read (
7       I                      mycurrenttime       I                      mycurrenttime
8       I                    , mycurrentiter       I                    , mycurrentiter
9       I                    , mythid       I                    , mythid
# Line 20  c     |================================= Line 20  c     |=================================
20    
21  c     == global variables ==  c     == global variables ==
22    
 #include "EEPARAMS.h"  
23  #include "SIZE.h"  #include "SIZE.h"
24    #include "EEPARAMS.h"
25    #include "PARAMS.h"
26  #include "GRID.h"  #include "GRID.h"
27  #include "OBCS.h"  #include "OBCS.h"
28  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
29  # include "EXF_PARAM.h"  # include "EXF_PARAM.h"
30  #endif  #endif
 #if (defined (ALLOW_SEAICE) || defined (ALLOW_PTRACERS))  
 # include "PARAMS.h"  
 #endif  
31  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
32  # include "PTRACERS_SIZE.h"  # include "PTRACERS_SIZE.h"
33  # include "PTRACERS.h"  # include "PTRACERS_PARAMS.h"
34    # include "PTRACERS_FIELDS.h"
35  # include "OBCS_PTRACERS.h"  # include "OBCS_PTRACERS.h"
36  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
37    
# Line 108  c     == end of interface == Line 107  c     == end of interface ==
107         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
108          call exf_set_obcs_xz(  OBNptr (1-Olx,1,1,1,iTracer)          call exf_set_obcs_xz(  OBNptr (1-Olx,1,1,1,iTracer)
109       I                       , OBNptr0(1-Olx,1,1,1,iTracer)       I                       , OBNptr0(1-Olx,1,1,1,iTracer)
110       I                       , OBNptr1(1-Olx,1,1,1,iTracer)       I                       , OBNptr1(1-Olx,1,1,1,iTracer)
111       I                       , OBNptrFile(iTracer), 's'       I                       , OBNptrFile(iTracer), 's'
112       I                       , fac, first, changed, count0, count1       I                       , fac, first, changed, count0, count1
113       I                       , mycurrenttime, mycurrentiter, mythid )       I                       , mycurrenttime, mycurrentiter, mythid )
# Line 166  c     == end of interface == Line 165  c     == end of interface ==
165         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
166          call exf_set_obcs_xz(  OBSptr (1-Olx,1,1,1,iTracer)          call exf_set_obcs_xz(  OBSptr (1-Olx,1,1,1,iTracer)
167       I                       , OBSptr0(1-Olx,1,1,1,iTracer)       I                       , OBSptr0(1-Olx,1,1,1,iTracer)
168       I                       , OBSptr1(1-Olx,1,1,1,iTracer)       I                       , OBSptr1(1-Olx,1,1,1,iTracer)
169       I                       , OBSptrFile(iTracer), 's'       I                       , OBSptrFile(iTracer), 's'
170       I                       , fac, first, changed, count0, count1       I                       , fac, first, changed, count0, count1
171       I                       , mycurrenttime, mycurrentiter, mythid )       I                       , mycurrenttime, mycurrentiter, mythid )
# Line 224  c     == end of interface == Line 223  c     == end of interface ==
223         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
224          call exf_set_obcs_yz(  OBEptr (1-Oly,1,1,1,iTracer)          call exf_set_obcs_yz(  OBEptr (1-Oly,1,1,1,iTracer)
225       I                       , OBEptr0(1-Oly,1,1,1,iTracer)       I                       , OBEptr0(1-Oly,1,1,1,iTracer)
226       I                       , OBEptr1(1-Oly,1,1,1,iTracer)       I                       , OBEptr1(1-Oly,1,1,1,iTracer)
227       I                       , OBEptrFile(iTracer), 's'       I                       , OBEptrFile(iTracer), 's'
228       I                       , fac, first, changed, count0, count1       I                       , fac, first, changed, count0, count1
229       I                       , mycurrenttime, mycurrentiter, mythid )       I                       , mycurrenttime, mycurrentiter, mythid )
# Line 282  c     == end of interface == Line 281  c     == end of interface ==
281         do itracer = 1, PTRACERS_numInUse         do itracer = 1, PTRACERS_numInUse
282          call exf_set_obcs_yz(  OBWptr (1-Oly,1,1,1,iTracer)          call exf_set_obcs_yz(  OBWptr (1-Oly,1,1,1,iTracer)
283       I                       , OBWptr0(1-Oly,1,1,1,iTracer)       I                       , OBWptr0(1-Oly,1,1,1,iTracer)
284       I                       , OBWptr1(1-Oly,1,1,1,iTracer)       I                       , OBWptr1(1-Oly,1,1,1,iTracer)
285       I                       , OBWptrFile(iTracer), 's'       I                       , OBWptrFile(iTracer), 's'
286       I                       , fac, first, changed, count0, count1       I                       , fac, first, changed, count0, count1
287       I                       , mycurrenttime, mycurrentiter, mythid )       I                       , mycurrenttime, mycurrentiter, mythid )
# Line 314  cgg    calendar information as other bou Line 313  cgg    calendar information as other bou
313  #endif  #endif
314    
315  #else /* not ALLOW_EXF */  #else /* not ALLOW_EXF */
316        CALL OBCS_EXTERNAL_FIELDS_LOAD(        CALL OBCS_EXTERNAL_FIELDS_LOAD(
317       &     myCurrentTime, myCurrentIter, myThid )       &     myCurrentTime, myCurrentIter, myThid )
318  #endif /*  ALLOw_EXF */  #endif /*  ALLOw_EXF */
319    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22