Changeset 7762 for branches/2016
- Timestamp:
- 2017-03-06T19:01:42+01:00 (7 years ago)
- Location:
- branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO
- Files:
-
- 2 edited
-
NST_SRC/agrif_user.F90 (modified) (1 diff)
-
OPA_SRC/nemogcm.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r7757 r7762 605 605 ! First Interpolations (using "after" ice subtime step => lim_nbstep=1) 606 606 !---------------------------------------------------------------------- 607 !! lim_nbstep = 1 .607 !! lim_nbstep = 1 608 608 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) 609 609 CALL agrif_interp_lim3('U') ! interpolation of ice velocities 610 610 CALL agrif_interp_lim3('V') ! interpolation of ice velocities 611 611 CALL agrif_interp_lim3('T') ! interpolation of ice tracers 612 lim_nbstep = 0 .612 lim_nbstep = 0 613 613 614 614 ! Update in case 2 ways -
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r7510 r7762 355 355 jpim1 = jpi-1 ! inner domain indices 356 356 jpjm1 = jpj-1 ! " " 357 jpkm1 = jpk-1! " "357 jpkm1 = MAX( 1, jpk-1 ) ! " " 358 358 jpij = jpi*jpj ! jpi x j 359 359
Note: See TracChangeset
for help on using the changeset viewer.
