/[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.88 by heimbach, Sat Jul 13 04:59:42 2002 UTC revision 1.89 by mlosch, Wed Aug 7 16:55:52 2002 UTC
# Line 97  C      |-- CALC_VISCOSITY Line 97  C      |-- CALC_VISCOSITY
97  C      |  C      |
98  C      |-- CALC_PHI_HYD    C      |-- CALC_PHI_HYD  
99  C      |  C      |
100    C      |-- STORE_PRESSURE
101    C      |
102  C      |-- MOM_FLUXFORM    C      |-- MOM_FLUXFORM  
103  C      |  C      |
104  C      |-- MOM_VECINV      C      |-- MOM_VECINV    
# Line 346  C        distinguishe between Stagger an Line 348  C        distinguishe between Stagger an
348       I        myThid )       I        myThid )
349           ENDIF           ENDIF
350    
351    C        calculate pressure from phiHyd and store it on common block
352    C        variable pressure
353             CALL STORE_PRESSURE( bi, bj, k, phiHyd, myThid )
354    
355    
356  C--      Calculate accelerations in the momentum equations (gU, gV, ...)  C--      Calculate accelerations in the momentum equations (gU, gV, ...)
357  C        and step forward storing the result in gUnm1, gVnm1, etc...  C        and step forward storing the result in gUnm1, gVnm1, etc...
358           IF ( momStepping ) THEN           IF ( momStepping ) THEN
Legend:
Removed from v.1.88  
changed lines
  Added in v.1.89
  ViewVC Help
Powered by ViewVC 1.1.22