/[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.63 by jmc, Tue Mar 16 00:16:50 2010 UTC revision 1.64 by jmc, Mon Apr 25 02:03:13 2011 UTC
# Line 273  C      Calculate del^2 u and del^2 v for Line 273  C      Calculate del^2 u and del^2 v for
273           CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid)           CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid)
274           CALL MOM_CALC_RELVORT3(bi,bj,k,           CALL MOM_CALC_RELVORT3(bi,bj,k,
275       &                          del2u,del2v,hFacZ,zStar,myThid)       &                          del2u,del2v,hFacZ,zStar,myThid)
276             IF ( writeDiag ) THEN
277               CALL WRITE_LOCAL_RL( 'del2u', 'I10', 1, del2u,
278         &                           bi,bj,k, myIter, myThid )
279               CALL WRITE_LOCAL_RL( 'del2v', 'I10', 1, del2v,
280         &                           bi,bj,k, myIter, myThid )
281               CALL WRITE_LOCAL_RL( 'dStar', 'I10', 1, dStar,
282         &                           bi,bj,k, myIter, myThid )
283               CALL WRITE_LOCAL_RL( 'zStar', 'I10', 1, zStar,
284         &                           bi,bj,k, myIter, myThid )
285             ENDIF
286         ENDIF         ENDIF
287    
288  C-    Strain diagnostics:  C-    Strain diagnostics:
Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22