/[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.38 by cnh, Fri Nov 6 22:44:45 1998 UTC revision 1.39 by adcroft, Tue Dec 8 19:44:28 1998 UTC
# Line 251  C--     Update fields in top level accor Line 251  C--     Update fields in top level accor
251          CALL CORRECTION_STEP(          CALL CORRECTION_STEP(
252       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
253       I       etaSurfX,etaSurfY,myTime,myThid)       I       etaSurfX,etaSurfY,myTime,myThid)
254            IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K, myThid )
255          IF ( .NOT. BOTTOM_LAYER ) THEN          IF ( .NOT. BOTTOM_LAYER ) THEN
256  C--      Update fields in layer below according to tendency terms  C--      Update fields in layer below according to tendency terms
257           CALL CORRECTION_STEP(           CALL CORRECTION_STEP(
258       I        bi,bj,iMin,iMax,jMin,jMax,K+1,       I        bi,bj,iMin,iMax,jMin,jMax,K+1,
259       I        etaSurfX,etaSurfY,myTime,myThid)       I        etaSurfX,etaSurfY,myTime,myThid)
260             IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )
261          ENDIF          ENDIF
262  #endif  #endif
263  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 308  C--       Update fields in layer below a Line 310  C--       Update fields in layer below a
310            CALL CORRECTION_STEP(            CALL CORRECTION_STEP(
311       I         bi,bj,iMin,iMax,jMin,jMax,K+1,       I         bi,bj,iMin,iMax,jMin,jMax,K+1,
312       I         etaSurfX,etaSurfY,myTime,myThid)       I         etaSurfX,etaSurfY,myTime,myThid)
313              IF (openBoundaries) CALL APPLY_OBCS1( bi, bj, K+1, myThid )
314           ENDIF           ENDIF
315  #endif  #endif
316  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 428  C--      Prediction step (step forward a Line 431  C--      Prediction step (step forward a
431           CALL TIMESTEP(           CALL TIMESTEP(
432       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
433       I       myThid)       I       myThid)
434             IF (openBoundaries) CALL APPLY_OBCS2( bi, bj, K, myThid )
435  C--      Diagnose barotropic divergence of predicted fields  C--      Diagnose barotropic divergence of predicted fields
436           CALL CALC_DIV_GHAT(           CALL CALC_DIV_GHAT(
437       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22