Changeset 6403 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90
- Timestamp:
- 2016-03-25T17:24:35+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limcons.F90
r5836 r6403 256 256 ENDIF 257 257 IF ( zvmin < -epsi10 ) WRITE(numout,*) 'violation v_i<0 [m] (',cd_routine,') = ',zvmin 258 IF ( zamax > rn_amax+epsi10 .AND. cd_routine /= 'limtrp' .AND. cd_routine /= 'limitd_me' ) THEN 258 IF ( zamax > MAX( rn_amax_n, rn_amax_s ) + epsi10 .AND. & 259 & cd_routine /= 'limtrp' .AND. cd_routine /= 'limitd_me' ) THEN 259 260 WRITE(numout,*) 'violation a_i>amax (',cd_routine,') = ',zamax 260 261 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.