Changeset 7762


Ignore:
Timestamp:
2017-03-06T19:01:42+01:00 (4 years ago)
Author:
clem
Message:

cosmetic changes

Location:
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r7757 r7762  
    605605   ! First Interpolations (using "after" ice subtime step => lim_nbstep=1) 
    606606   !---------------------------------------------------------------------- 
    607 !!   lim_nbstep = 1. 
     607!!   lim_nbstep = 1 
    608608   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) 
    609609   CALL agrif_interp_lim3('U') ! interpolation of ice velocities 
    610610   CALL agrif_interp_lim3('V') ! interpolation of ice velocities 
    611611   CALL agrif_interp_lim3('T') ! interpolation of ice tracers 
    612    lim_nbstep = 0. 
     612   lim_nbstep = 0 
    613613    
    614614   ! Update in case 2 ways 
  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7510 r7762  
    355355         jpim1 = jpi-1                                            ! inner domain indices 
    356356         jpjm1 = jpj-1                                            !   "           " 
    357          jpkm1 = jpk-1                                            !   "           " 
     357         jpkm1 = MAX( 1, jpk-1 )                                  !   "           " 
    358358         jpij  = jpi*jpj                                          !  jpi x j 
    359359 
Note: See TracChangeset for help on using the changeset viewer.