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( |