336 |
DO K=1,Nr |
DO K=1,Nr |
337 |
DO j = 1,sNy |
DO j = 1,sNy |
338 |
DO i = 1,sNx |
DO i = 1,sNx |
339 |
tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)* |
340 |
|
. *86400./dTtracerLev(1) |
341 |
ENDDO |
ENDDO |
342 |
ENDDO |
ENDDO |
343 |
ENDDO |
ENDDO |
353 |
DO j = 1,sNy |
DO j = 1,sNy |
354 |
DO i = 1,sNx |
DO i = 1,sNx |
355 |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj) |
356 |
|
. *86400./dTtracerLev(1) |
357 |
ENDDO |
ENDDO |
358 |
ENDDO |
ENDDO |
359 |
ENDDO |
ENDDO |
369 |
DO j = 1,sNy |
DO j = 1,sNy |
370 |
DO i = 1,sNx |
DO i = 1,sNx |
371 |
tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj) |
372 |
|
. *86400./dTtracerLev(1) |
373 |
ENDDO |
ENDDO |
374 |
ENDDO |
ENDDO |
375 |
ENDDO |
ENDDO |
385 |
DO j = 1,sNy |
DO j = 1,sNy |
386 |
DO i = 1,sNx |
DO i = 1,sNx |
387 |
tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj) |
388 |
|
. *86400./dTtracerLev(1) |
389 |
ENDDO |
ENDDO |
390 |
ENDDO |
ENDDO |
391 |
ENDDO |
ENDDO |
642 |
DO j = 1,sNy |
DO j = 1,sNy |
643 |
DO i = 1,sNx |
DO i = 1,sNx |
644 |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj) |
645 |
|
. *86400./dTtracerLev(1) |
646 |
ENDDO |
ENDDO |
647 |
ENDDO |
ENDDO |
648 |
ENDDO |
ENDDO |
658 |
DO j = 1,sNy |
DO j = 1,sNy |
659 |
DO i = 1,sNx |
DO i = 1,sNx |
660 |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj) |
661 |
|
. *86400./dTtracerLev(1) |
662 |
ENDDO |
ENDDO |
663 |
ENDDO |
ENDDO |
664 |
ENDDO |
ENDDO |
674 |
DO j = 1,sNy |
DO j = 1,sNy |
675 |
DO i = 1,sNx |
DO i = 1,sNx |
676 |
tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj) |
677 |
|
. *86400./dTtracerLev(1) |
678 |
ENDDO |
ENDDO |
679 |
ENDDO |
ENDDO |
680 |
ENDDO |
ENDDO |
690 |
DO j = 1,sNy |
DO j = 1,sNy |
691 |
DO i = 1,sNx |
DO i = 1,sNx |
692 |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj) |
693 |
|
. *86400./dTtracerLev(1) |
694 |
ENDDO |
ENDDO |
695 |
ENDDO |
ENDDO |
696 |
ENDDO |
ENDDO |