/[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.83 by heimbach, Thu Sep 27 20:12:10 2001 UTC revision 1.83.6.1 by dimitri, Mon Jan 20 03:05:55 2003 UTC
# Line 104  C      |-- MOM_FLUXFORM Line 104  C      |-- MOM_FLUXFORM
104  C      |  C      |
105  C      |-- MOM_VECINV      C      |-- MOM_VECINV    
106  C      |  C      |
107  C      |-- TIMESTEP        C      |-- TIMESTEP_MOM      
108  C      |  C      |
109  C      |-- OBCS_APPLY_UV  C      |-- OBCS_APPLY_UV
110  C      |  C      |
# Line 290  C--     Start computation of dynamics Line 290  C--     Start computation of dynamics
290  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_bibj, key = ikey, byte = isbyte  CADJ STORE wvel (:,:,:,bi,bj) = comlev1_bibj, key = ikey, byte = isbyte
291  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
292    
293  C--     Explicit part of the Surface Potentiel Gradient (add in TIMESTEP)  C--     Explicit part of the Surface Potentiel Gradient (add in TIMESTEP_MOM)
294  C       (note: this loop will be replaced by CALL CALC_GRAD_ETA)  C       (note: this loop will be replaced by CALL CALC_GRAD_ETA)
295          IF (implicSurfPress.NE.1.) THEN          IF (implicSurfPress.NE.1.) THEN
296            CALL CALC_GRAD_PHI_SURF(            CALL CALC_GRAD_PHI_SURF(
# Line 369  C        and step forward storing the re Line 369  C        and step forward storing the re
369       U         fVerU, fVerV,       U         fVerU, fVerV,
370       I         myTime, myIter, myThid)       I         myTime, myIter, myThid)
371  #endif  #endif
372             CALL TIMESTEP(             CALL TIMESTEP_MOM(
373       I         bi,bj,iMin,iMax,jMin,jMax,k,       I         bi,bj,iMin,iMax,jMin,jMax,k,
374       I         phiHyd, phiSurfX, phiSurfY,       I         phiHyd, phiSurfX, phiSurfY,
375       I         myIter, myThid)       I         myIter, myThid)
Legend:
Removed from v.1.83  
changed lines
  Added in v.1.83.6.1
  ViewVC Help
Powered by ViewVC 1.1.22