115 |
CALL STREAMICE_CG_BOUND_VALS( myThid, |
CALL STREAMICE_CG_BOUND_VALS( myThid, |
116 |
O ubd_SI, |
O ubd_SI, |
117 |
O vbd_SI) |
O vbd_SI) |
118 |
|
|
119 |
|
|
120 |
! CALL WRITE_FLD_XY_RL("u_bound_cont","",ubd_SI,0,myThid) |
! CALL WRITE_FLD_XY_RL("u_bound_cont","",ubd_SI,0,myThid) |
121 |
! CALL WRITE_FLD_XY_RL("v_bound_cont","",vbd_SI,0,myThid) |
! CALL WRITE_FLD_XY_RL("v_bound_cont","",vbd_SI,0,myThid) |
459 |
|
|
460 |
_EXCH_XY_RL (U_streamice, myThid) |
_EXCH_XY_RL (U_streamice, myThid) |
461 |
_EXCH_XY_RL (V_streamice, myThid) |
_EXCH_XY_RL (V_streamice, myThid) |
462 |
|
! CALL WRITE_FLD_XY_RL("taubx","",streamice_taubx,0,myThid) |
463 |
|
! CALL WRITE_FLD_XY_RL("tauby","",streamice_tauby,0,myThid) |
464 |
|
|
465 |
#endif |
#endif |
466 |
RETURN |
RETURN |