- Timestamp:
- 2015-11-30T20:55:41+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90
r5123 r5956 160 160 !------------------------------------------------------------------- 161 161 162 !CDIR NOVERRCHK163 162 DO jj = k_j1 , k_jpj-1 164 !CDIR NOVERRCHK165 163 DO ji = 1 , jpi 166 164 ! only the sinus changes its sign with the hemisphere … … 245 243 ! Computation of free drift field for free slip boundary conditions. 246 244 247 !CDIR NOVERRCHK248 245 DO jj = k_j1, k_jpj-1 249 !CDIR NOVERRCHK250 246 DO ji = 1, fs_jpim1 251 247 !- Rate of strain tensor. … … 401 397 iflag: DO jter = 1 , nbitdr ! Relaxation ! 402 398 ! ! ================ ! 403 !CDIR NOVERRCHK404 399 DO jj = k_j1+1, k_jpj-1 405 !CDIR NOVERRCHK406 400 DO ji = 2, fs_jpim1 ! NO vector opt. 407 401 !
Note: See TracChangeset
for help on using the changeset viewer.