37 |
CALL DIAGNOSTICS_FILL(tmp1k,'ETANSQ ',0,1,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(tmp1k,'ETANSQ ',0,1,0,1,1,myThid) |
38 |
ENDIF |
ENDIF |
39 |
|
|
40 |
|
CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT ',0,1,0,1,1,myThid) |
41 |
|
|
42 |
|
IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN |
43 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
44 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
45 |
|
DO j = 1,sNy |
46 |
|
DO i = 1,sNx |
47 |
|
tmp1k(i,j,bi,bj) = phiHydLow(i,j,bi,bj) |
48 |
|
& *phiHydLow(i,j,bi,bj) |
49 |
|
ENDDO |
50 |
|
ENDDO |
51 |
|
ENDDO |
52 |
|
ENDDO |
53 |
|
CALL DIAGNOSTICS_FILL(tmp1k,'PHIBOTSQ',0,1,0,1,1,myThid) |
54 |
|
ENDIF |
55 |
|
|
56 |
#ifdef EXACT_CONSERV |
#ifdef EXACT_CONSERV |
57 |
IF ( DIAGNOSTICS_IS_ON('DETADT2 ',myThid) ) THEN |
IF ( DIAGNOSTICS_IS_ON('DETADT2 ',myThid) ) THEN |
58 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
68 |
ENDIF |
ENDIF |
69 |
#endif |
#endif |
70 |
|
|
71 |
|
CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD ',0,Nr,0,1,1,myThid) |
72 |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(uVel, 'UVEL ',0,Nr,0,1,1,myThid) |
73 |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(vVel, 'VVEL ',0,Nr,0,1,1,myThid) |
74 |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |
CALL DIAGNOSTICS_FILL(wVel, 'WVEL ',0,Nr,0,1,1,myThid) |