47 |
C vDragTerms :: drag term |
C vDragTerms :: drag term |
48 |
_RL vDragTerms(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL vDragTerms(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
49 |
|
|
50 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES : ==================================================== |
51 |
C i,j :: loop indices |
C i,j :: loop indices |
52 |
C Kp1 :: =k+1 for k<Nr, =Nr for k>=Nr |
C Kp1 :: =k+1 for k<Nr, =Nr for k>=Nr |
53 |
INTEGER I,J,kUp,kUpC,kTop |
INTEGER I,J,kUp,kUpC,kTop |
87 |
ENDDO |
ENDDO |
88 |
ENDDO |
ENDDO |
89 |
|
|
90 |
#ifdef ALLOW_DIAGNOSTICS |
CML#ifdef ALLOW_DIAGNOSTICS |
91 |
IF (useDiagnostics) THEN |
CML IF (useDiagnostics) THEN |
92 |
CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
CML CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid) |
93 |
ENDIF |
CML ENDIF |
94 |
#endif /* ALLOW_DIAGNOSTICS */ |
CML#endif /* ALLOW_DIAGNOSTICS */ |
95 |
|
|
96 |
RETURN |
RETURN |
97 |
END |
END |