Changeset 5138

Timestamp:

2015-03-11T10:57:31+01:00 (8 years ago)

Author:

vancop

Message:

«Useless ctl_stop in limtrp.F90 (lim3)

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

@@ -142 +142 @@
 
          IF( zcfl > 0.5_wp .AND. lwp )   ncfl = ncfl + 1
-         IF( numit == nlast .AND. lwp ) THEN
+         IF( lwp ) THEN
             IF( ncfl > 0 ) THEN   
                WRITE(cltmp,'(i6.1)') ncfl
-               CALL ctl_stop('STOP',TRIM(cltmp) )
-               CALL ctl_warn( 'lim_trp: ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ')
+               CALL ctl_warn( 'lim_trp: ncfl= ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ')
             ELSE
-               WRITE(numout,*) 'lim_trp : CFL criteria for ice advection is always smaller than 1/2 '
+               WRITE(numout,*) 'lim_trp : CFL criterion for ice advection is always smaller than 1/2 '
             ENDIF
          ENDIF