49 |
CALL CALC_SURF_DR( etaH, myTime, myIter, myThid ) |
CALL CALC_SURF_DR( etaH, myTime, myIter, myThid ) |
50 |
CALL UPDATE_SURF_DR(.FALSE., myTime, myIter, myThid) |
CALL UPDATE_SURF_DR(.FALSE., myTime, myIter, myThid) |
51 |
CALL UPDATE_CG2D(myTime,myIter, myThid) |
CALL UPDATE_CG2D(myTime,myIter, myThid) |
52 |
CALL INTEGR_CONTINUITY (uVel ,vVel , starttime, myIter, myThid) |
CALL INTEGR_CONTINUITY (uVel ,vVel, starttime, myIter, myThid) |
53 |
ENDIF |
ENDIF |
54 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |
55 |
|
|