Changeset 9872 for NEMO/trunk/src/NST/agrif_user.F90
- Timestamp:
- 2018-07-04T10:48:01+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_user.F90
r9788 r9872 483 483 CALL ctl_stop('rhot * nn_fsbc(parent) /= N * nn_fsbc(child), therefore nn_fsbc(child) should be set to 1 or nn_fsbc(parent)') 484 484 ENDIF 485 ! First Interpolations (using "after" ice subtime step => lim_nbstep=1)485 ! First Interpolations (using "after" ice subtime step => nbstep_ice=1) 486 486 !---------------------------------------------------------------------- 487 lim_nbstep= ( Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) ! clem: to have calledweight=1 in interp (otherwise the western border of the zoom is wrong)487 nbstep_ice = ( Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) ! clem: to have calledweight=1 in interp (otherwise the western border of the zoom is wrong) 488 488 CALL agrif_interp_ice('U') ! interpolation of ice velocities 489 489 CALL agrif_interp_ice('V') ! interpolation of ice velocities 490 490 CALL agrif_interp_ice('T') ! interpolation of ice tracers 491 lim_nbstep= 0491 nbstep_ice = 0 492 492 493 493 !
Note: See TracChangeset
for help on using the changeset viewer.