Changeset 9610 for NEMO/trunk/src/NST/agrif_user.F90
- Timestamp:
- 2018-05-18T16:29:56+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_user.F90
r9598 r9610 62 62 # endif 63 63 # if defined key_si3 64 CALL Agrif_InitValues_cont_ si364 CALL Agrif_InitValues_cont_ice 65 65 # endif 66 66 ! … … 327 327 328 328 #if defined key_si3 329 CALL agrif_update_ si3(0)329 CALL agrif_update_ice(0) 330 330 #endif 331 331 … … 493 493 494 494 #if defined key_si3 495 SUBROUTINE Agrif_InitValues_cont_ si3496 !!---------------------------------------------------------------------- 497 !! *** ROUTINE Agrif_InitValues_cont_ si3***495 SUBROUTINE Agrif_InitValues_cont_ice 496 !!---------------------------------------------------------------------- 497 !! *** ROUTINE Agrif_InitValues_cont_ice *** 498 498 !! 499 499 !! ** Purpose :: Initialisation of variables to be interpolated for LIM3 … … 512 512 ! Declaration of the type of variable which have to be interpolated (parent=>child) 513 513 !---------------------------------------------------------------------------------- 514 CALL agrif_declare_var_ si3514 CALL agrif_declare_var_ice 515 515 516 516 ! Controls … … 529 529 !---------------------------------------------------------------------- 530 530 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) 531 CALL agrif_interp_ si3('U') ! interpolation of ice velocities532 CALL agrif_interp_ si3('V') ! interpolation of ice velocities533 CALL agrif_interp_ si3('T') ! interpolation of ice tracers531 CALL agrif_interp_ice('U') ! interpolation of ice velocities 532 CALL agrif_interp_ice('V') ! interpolation of ice velocities 533 CALL agrif_interp_ice('T') ! interpolation of ice tracers 534 534 lim_nbstep = 0 535 535 536 536 ! 537 END SUBROUTINE Agrif_InitValues_cont_ si3538 539 SUBROUTINE agrif_declare_var_ si3540 !!---------------------------------------------------------------------- 541 !! *** ROUTINE agrif_declare_var_ si3***537 END SUBROUTINE Agrif_InitValues_cont_ice 538 539 SUBROUTINE agrif_declare_var_ice 540 !!---------------------------------------------------------------------- 541 !! *** ROUTINE agrif_declare_var_ice *** 542 542 !! 543 543 !! ** Purpose :: Declaration of variables to be interpolated for LIM3 … … 590 590 #endif 591 591 592 END SUBROUTINE agrif_declare_var_ si3592 END SUBROUTINE agrif_declare_var_ice 593 593 #endif 594 594
Note: See TracChangeset
for help on using the changeset viewer.