Parent Directory | Revision Log | Revision Graph | Patch
revision 1.116 by molod, Mon May 23 19:58:04 2005 UTC | revision 1.117 by molod, Mon May 23 20:49:37 2005 UTC | |
---|---|---|
# | Line 495 Cml) | Line 495 Cml) |
495 | DO k = 1,Nr | DO k = 1,Nr |
496 | DO j = 1,sNy | DO j = 1,sNy |
497 | DO i = 1,sNx | DO i = 1,sNx |
498 | tmpFld(i,j) = totPhihyd(i,j,L,bi,bj)*totPhihyd(i,j,L,bi,bj) | tmpFld(i,j) = totPhihyd(i,j,k,bi,bj)*totPhihyd(i,j,k,bi,bj) |
499 | ENDDO | ENDDO |
500 | ENDDO | ENDDO |
501 | CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',L,1,2,bi,bj,myThid) | CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',k,1,2,bi,bj,myThid) |
502 | ENDDO | ENDDO |
503 | ENDDO | ENDDO |
504 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |