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: |