/[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.47 by adcroft, Mon Aug 30 18:29:26 1999 UTC revision 1.48 by adcroft, Tue Mar 14 17:47:25 2000 UTC
# Line 511  C--      Apply open boundary conditions Line 511  C--      Apply open boundary conditions
511  C--      Freeze water  C--      Freeze water
512           IF (allowFreezing)           IF (allowFreezing)
513       &   CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid )       &   CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid )
514    
515    #ifdef DIVG_IN_DYNAMICS
516  C--      Diagnose barotropic divergence of predicted fields  C--      Diagnose barotropic divergence of predicted fields
517           CALL CALC_DIV_GHAT(           CALL CALC_DIV_GHAT(
518       I       bi,bj,iMin,iMax,jMin,jMax,K,       I       bi,bj,iMin,iMax,jMin,jMax,K,
519       I       xA,yA,       I       xA,yA,
520       I       myThid)       I       myThid)
521    #endif /* DIVG_IN_DYNAMICS */
522    
523  C--      Cumulative diagnostic calculations (ie. time-averaging)  C--      Cumulative diagnostic calculations (ie. time-averaging)
524  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE  #ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22