355 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
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 |
359 |
|
IF ( K .EQ. 1 ) THEN |
360 |
|
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 ) |
362 |
|
ENDIF |
363 |
|
CcnhDebugEnds |
364 |
C-- Calculate the total vertical diffusivity |
C-- Calculate the total vertical diffusivity |
365 |
CALL CALC_DIFFUSIVITY( |
CALL CALC_DIFFUSIVITY( |
366 |
I bi,bj,iMin,iMax,jMin,jMax,K, |
I bi,bj,iMin,iMax,jMin,jMax,K, |