73 |
_RL rTransKp1(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
_RL rTransKp1(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
74 |
_RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
75 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
|
INTEGER kk |
|
76 |
CHARACTER*8 diagName |
CHARACTER*8 diagName |
77 |
CHARACTER*4 GAD_DIAG_SUFX, diagSufx |
CHARACTER*4 GAD_DIAG_SUFX, diagSufx |
78 |
EXTERNAL GAD_DIAG_SUFX |
EXTERNAL GAD_DIAG_SUFX |
298 |
ENDDO |
ENDDO |
299 |
ENDDO |
ENDDO |
300 |
ENDIF |
ENDIF |
301 |
kk = -k |
CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid) |
|
CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid) |
|
302 |
ENDDO |
ENDDO |
303 |
ENDIF |
ENDIF |
304 |
ENDIF |
ENDIF |