/[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.40 by adcroft, Wed Dec 9 16:11:51 1998 UTC revision 1.41 by adcroft, Mon May 3 21:45:57 1999 UTC
# Line 432  C--      Prediction step (step forward a Line 432  C--      Prediction step (step forward a
432           CALL TIMESTEP(           CALL TIMESTEP(
433       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
434       I       myThid)       I       myThid)
435    C--      Apply open boundary conditions
436           IF (openBoundaries) CALL APPLY_OBCS2( bi, bj, K, myThid )           IF (openBoundaries) CALL APPLY_OBCS2( bi, bj, K, myThid )
437    C--      Freeze water
438             IF (allowFreezing)
439         &   CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid )
440  C--      Diagnose barotropic divergence of predicted fields  C--      Diagnose barotropic divergence of predicted fields
441           CALL CALC_DIV_GHAT(           CALL CALC_DIV_GHAT(
442       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22