/[MITgcm]/MITgcm/pkg/mom_vecinv/mom_vecinv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_vecinv/mom_vecinv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.34 by baylor, Thu Mar 10 02:39:56 2005 UTC revision 1.36 by jmc, Wed Apr 6 18:42:12 2005 UTC
# Line 66  C     myThid - Instance number for this Line 66  C     myThid - Instance number for this
66  #ifdef ALLOW_MOM_VECINV  #ifdef ALLOW_MOM_VECINV
67    
68  C     == Functions ==  C     == Functions ==
69        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFF_BASE_MULTIPLE
70        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFF_BASE_MULTIPLE
71    
72  C     == Local variables ==  C     == Local variables ==
73        _RL      vF (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL      vF (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 114  C--   (at least in part) Line 114  C--   (at least in part)
114        fVerV(1,1,kUp) = fVerV(1,1,kUp)        fVerV(1,1,kUp) = fVerV(1,1,kUp)
115  #endif  #endif
116    
117        writeDiag = DIFFERENT_MULTIPLE(diagFreq, myTime,        writeDiag = DIFF_BASE_MULTIPLE(baseTime, diagFreq,
118       &                                         myTime-deltaTClock)       &                               myTime, deltaTClock)
119    
120  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
121        IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN        IF (useMNC .AND. snapshot_mnc .AND. writeDiag) THEN
# Line 232  C      in terms of vorticity and diverge Line 232  C      in terms of vorticity and diverge
232       &                       myThid)       &                       myThid)
233         ENDIF         ENDIF
234  C      or in terms of tension and strain  C      or in terms of tension and strain
235         IF (viscAstrain.NE.0. .OR. viscAtension.NE.0.) THEN         IF (viscAstrain.NE.0. .OR. viscAtension.NE.0.
236         O      .OR. viscC2smag.ne.0) THEN
237           CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,           CALL MOM_CALC_TENSION(bi,bj,k,uFld,vFld,
238       O                         tension,       O                         tension,
239       I                         myThid)       I                         myThid)
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22