202 |
ENDDO |
ENDDO |
203 |
ENDDO |
ENDDO |
204 |
|
|
205 |
|
|
206 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
207 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
208 |
|
|
233 |
jMin = 1-OLy+1 |
jMin = 1-OLy+1 |
234 |
jMax = sNy+OLy |
jMax = sNy+OLy |
235 |
|
|
236 |
|
|
237 |
K = 1 |
K = 1 |
238 |
BOTTOM_LAYER = K .EQ. Nr |
BOTTOM_LAYER = K .EQ. Nr |
239 |
|
|
380 |
I xA,yA,uTrans,vTrans,rTrans,maskUp,maskC, |
I xA,yA,uTrans,vTrans,rTrans,maskUp,maskC, |
381 |
I K13,K23,KappaRT,KapGM, |
I K13,K23,KappaRT,KapGM, |
382 |
U aTerm,xTerm,fZon,fMer,fVerT, |
U aTerm,xTerm,fZon,fMer,fVerT, |
383 |
I myThid) |
I myTime, myThid) |
384 |
ENDIF |
ENDIF |
385 |
IF ( saltStepping ) THEN |
IF ( saltStepping ) THEN |
386 |
CALL CALC_GS( |
CALL CALC_GS( |
388 |
I xA,yA,uTrans,vTrans,rTrans,maskUp,maskC, |
I xA,yA,uTrans,vTrans,rTrans,maskUp,maskC, |
389 |
I K13,K23,KappaRS,KapGM, |
I K13,K23,KappaRS,KapGM, |
390 |
U aTerm,xTerm,fZon,fMer,fVerS, |
U aTerm,xTerm,fZon,fMer,fVerS, |
391 |
I myThid) |
I myTime, myThid) |
392 |
ENDIF |
ENDIF |
393 |
C-- Prediction step (step forward all model variables) |
C-- Prediction step (step forward all model variables) |
394 |
CALL TIMESTEP( |
CALL TIMESTEP( |
450 |
C & maxval(salt(1:sNx,1:sNy,:,:,:)) |
C & maxval(salt(1:sNx,1:sNy,:,:,:)) |
451 |
C write(0,*) 'dynamics: phiHyd ',minval(phiHyd/(Gravity*Rhonil),mask=phiHyd.NE.0.), |
C write(0,*) 'dynamics: phiHyd ',minval(phiHyd/(Gravity*Rhonil),mask=phiHyd.NE.0.), |
452 |
C & maxval(phiHyd/(Gravity*Rhonil)) |
C & maxval(phiHyd/(Gravity*Rhonil)) |
453 |
|
C CALL PLOT_FIELD_XYZRL( gU, ' GU exiting dyanmics ' , |
454 |
|
C &Nr, 1, myThid ) |
455 |
|
C CALL PLOT_FIELD_XYZRL( gV, ' GV exiting dyanmics ' , |
456 |
|
C &Nr, 1, myThid ) |
457 |
|
C CALL PLOT_FIELD_XYZRL( gS, ' GS exiting dyanmics ' , |
458 |
|
C &Nr, 1, myThid ) |
459 |
|
C CALL PLOT_FIELD_XYZRL( gT, ' GT exiting dyanmics ' , |
460 |
|
C &Nr, 1, myThid ) |
461 |
|
|
462 |
|
|
463 |
RETURN |
RETURN |
464 |
END |
END |