/[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.16 by mlosch, Wed Dec 14 18:01:49 2005 UTC revision 1.17 by jmc, Wed Dec 14 22:40:51 2005 UTC
# Line 18  C     === Global variables === Line 18  C     === Global variables ===
18  #include "PARAMS.h"  #include "PARAMS.h"
19  #include "DYNVARS.h"  #include "DYNVARS.h"
20  #include "OBCS.h"  #include "OBCS.h"
21  #ifdef ALLOW_PTRACERS.h  #ifdef ALLOW_PTRACERS
22  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
23  #include "PTRACERS.h"  #include "PTRACERS.h"
24  #include "OBCS_PTRACERS.h"  #include "OBCS_PTRACERS.h"
# Line 216  c       CALL OBCS_READ_CHECKPOINT(prec, Line 216  c       CALL OBCS_READ_CHECKPOINT(prec,
216        ENDIF        ENDIF
217  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
218    
219  C--   Apply OBCS values to initial conditions for consistancy  C--   Load/compute OBCS values:
220  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
221        IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)        IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid)
222  #endif  #endif
# Line 229  C--   Apply OBCS values to initial condi Line 229  C--   Apply OBCS values to initial condi
229    
230        IF ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0        IF ( startTime .EQ. baseTime .AND.  nIter0 .EQ. 0
231       &     .AND. pickupSuff .EQ. ' ' ) THEN       &     .AND. pickupSuff .EQ. ' ' ) THEN
232    C--   Apply OBCS values to initial conditions for consistency
233    C      (but initial conditions only)
234  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
235         IF (debugMode)         IF (debugMode)
236       &      CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid)       &      CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid)
# Line 254  C     repeat everything for passive trac Line 256  C     repeat everything for passive trac
256             DO K=1,Nr             DO K=1,Nr
257              CALL OBCS_APPLY_PTRACER(              CALL OBCS_APPLY_PTRACER(
258       I           bi, bj, K, iTracer,       I           bi, bj, K, iTracer,
259       U           ptracer(1-Olx,1-Oly,K,bi,bj,iTracer),       U           pTracer(1-Olx,1-Oly,K,bi,bj,iTracer),
260       I           myThid )       I           myThid )
261             ENDDO             ENDDO
262            ENDDO            ENDDO
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22