356 |
O xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp, |
O xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp, |
357 |
I myThid) |
I myThid) |
358 |
CcnhDebugStarts |
CcnhDebugStarts |
359 |
IF ( K .EQ. 1 ) THEN |
C IF ( K .EQ. 1 ) THEN |
360 |
CALL PLOT_FIELD_XYRL( rVel(1,1,1), 'K=1 Current rVel.1 ' , myIter, myThid ) |
C CALL PLOT_FIELD_XYRL( rVel(1,1,1), 'K=1 Current rVel.1 ' , myIter, myThid ) |
361 |
CALL PLOT_FIELD_XYRL( rVel(1,1,2), 'K=1 Current rVel.2 ' , myIter, myThid ) |
C CALL PLOT_FIELD_XYRL( rVel(1,1,2), 'K=1 Current rVel.2 ' , myIter, myThid ) |
362 |
ENDIF |
C ENDIF |
363 |
CcnhDebugEnds |
CcnhDebugEnds |
364 |
C-- Calculate the total vertical diffusivity |
C-- Calculate the total vertical diffusivity |
365 |
CALL CALC_DIFFUSIVITY( |
CALL CALC_DIFFUSIVITY( |