/[MITgcm]/MITgcm/pkg/obcs/obcs_init_variables.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_init_variables.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.30 by mlosch, Sat Oct 3 15:12:09 2009 UTC revision 1.31 by jmc, Sun Oct 4 22:36:30 2009 UTC
# Line 290  C     == Local variables == Line 290  C     == Local variables ==
290         ENDDO         ENDDO
291        ENDDO        ENDDO
292    
 #ifdef ALLOW_ORLANSKI  
       IF (useOrlanskiNorth.OR.useOrlanskiSouth.OR.  
      &     useOrlanskiEast.OR.useOrlanskiWest) THEN  
293  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
294  C     Only needed for Orlanski:  C     Only needed for Orlanski:
295         IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN        IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN
296          CALL OBCS_READ_PICKUP( nIter0, myThid )          CALL OBCS_READ_PICKUP( nIter0, myThid )
        ENDIF  
 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  
297        ENDIF        ENDIF
298  #endif /* ALLOW_ORLANSKI */  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
299    
300  C--   Load/compute OBCS values (initial conditions only)  C--   Load/compute OBCS values (initial conditions only)
301        IF ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0        IF ( nIter0.EQ.0 .AND. pickupSuff.EQ.' ' ) THEN
      &     .AND. pickupSuff .EQ. ' ' ) THEN  
302  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
303         IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)         IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)
304  #endif  #endif
# Line 342  C     from a file. Line 336  C     from a file.
336          _EXCH_XYZ_RL( salt , myThid )          _EXCH_XYZ_RL( salt , myThid )
337         ENDIF         ENDIF
338  C     endif start from rest  C     endif start from rest
339    #ifdef ALLOW_OBCS_PRESCRIBE
340          ELSEIF ( useOBCSprescribe .AND. useEXF ) THEN
341    C    No real need to set OB values here. Add this call to fix a problem
342    C    of initialisation with EXF (exf_getffieldrec.F) which only recognizes
343    C    the 1rst call (setting "first") when time=starTime
344            CALL OBCS_PRESCRIBE_READ( startTime, nIter0, myThid )
345    #endif
346        ENDIF        ENDIF
347    
348  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
349  C     repeat everything for passive tracers  C     repeat everything for passive tracers
350        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22