/[MITgcm]/MITgcm/model/src/dynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/dynamics.F

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

revision 1.42 by adcroft, Tue May 18 18:01:12 1999 UTC revision 1.43 by adcroft, Mon May 24 15:42:23 1999 UTC
# Line 258  C--     Update fields in top level accor Line 258  C--     Update fields in top level accor
258          CALL CORRECTION_STEP(          CALL CORRECTION_STEP(
259       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
260       I       etaSurfX,etaSurfY,myTime,myThid)       I       etaSurfX,etaSurfY,myTime,myThid)
261    #ifdef ALLOW_OBCS
262          IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K, myThid )          IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K, myThid )
263    #endif
264          IF ( .NOT. BOTTOM_LAYER ) THEN          IF ( .NOT. BOTTOM_LAYER ) THEN
265  C--      Update fields in layer below according to tendency terms  C--      Update fields in layer below according to tendency terms
266           CALL CORRECTION_STEP(           CALL CORRECTION_STEP(
267       I        bi,bj,iMin,iMax,jMin,jMax,K+1,       I        bi,bj,iMin,iMax,jMin,jMax,K+1,
268       I        etaSurfX,etaSurfY,myTime,myThid)       I        etaSurfX,etaSurfY,myTime,myThid)
269    #ifdef ALLOW_OBCS
270           IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )           IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )
271    #endif
272          ENDIF          ENDIF
273  #endif  #endif
274  C--     Density of 1st level (below W(1)) reference to level 1  C--     Density of 1st level (below W(1)) reference to level 1
# Line 321  C--       Update fields in layer below a Line 325  C--       Update fields in layer below a
325            CALL CORRECTION_STEP(            CALL CORRECTION_STEP(
326       I         bi,bj,iMin,iMax,jMin,jMax,K+1,       I         bi,bj,iMin,iMax,jMin,jMax,K+1,
327       I         etaSurfX,etaSurfY,myTime,myThid)       I         etaSurfX,etaSurfY,myTime,myThid)
328    #ifdef ALLOW_OBCS
329            IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )            IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )
330    #endif
331           ENDIF           ENDIF
332  #endif  #endif
333  C--      Density of K level (below W(K)) reference to K level  C--      Density of K level (below W(K)) reference to K level
# Line 458  C--      Prediction step (step forward a Line 464  C--      Prediction step (step forward a
464           CALL TIMESTEP(           CALL TIMESTEP(
465       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
466       I       myThid)       I       myThid)
467    #ifdef ALLOW_OBCS
468  C--      Apply open boundary conditions  C--      Apply open boundary conditions
469           IF (openBoundaries) CALL APPLY_OBCS2( bi, bj, K, myThid )           IF (openBoundaries) CALL APPLY_OBCS2( bi, bj, K, myThid )
470    #endif
471  C--      Freeze water  C--      Freeze water
472           IF (allowFreezing)           IF (allowFreezing)
473       &   CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid )       &   CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid )
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22