344 |
CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQ ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQ ',0,Nr,0,1,1,myThid) |
345 |
ENDIF |
ENDIF |
346 |
|
|
347 |
|
IF ( DIAGNOSTICS_IS_ON('SALTanom',myThid) ) THEN |
348 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
349 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
350 |
|
DO K=1,Nr |
351 |
|
DO j = 1,sNy |
352 |
|
DO i = 1,sNx |
353 |
|
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35 |
354 |
|
ENDDO |
355 |
|
ENDDO |
356 |
|
ENDDO |
357 |
|
ENDDO |
358 |
|
ENDDO |
359 |
|
CALL DIAGNOSTICS_FILL(tmpMk,'SALTanom',0,Nr,0,1,1,myThid) |
360 |
|
ENDIF |
361 |
|
|
362 |
|
IF ( DIAGNOSTICS_IS_ON('SALTSQan',myThid) ) THEN |
363 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
364 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
365 |
|
DO K=1,Nr |
366 |
|
DO j = 1,sNy |
367 |
|
DO i = 1,sNx |
368 |
|
tmpMk(i,j,K,bi,bj) = |
369 |
|
& (salt(i,j,K,bi,bj)-35)*(salt(i,j,K,bi,bj)-35) |
370 |
|
ENDDO |
371 |
|
ENDDO |
372 |
|
ENDDO |
373 |
|
ENDDO |
374 |
|
ENDDO |
375 |
|
CALL DIAGNOSTICS_FILL(tmpMk,'SALTSQan',0,Nr,0,1,1,myThid) |
376 |
|
ENDIF |
377 |
|
|
378 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
379 |
|
|
380 |
IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('UVELMASS',myThid) ) THEN |