Changeset 5202 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

Timestamp:

2015-04-07T17:40:16+02:00 (9 years ago)

Author:

clem

Message:

LIM3: important bug fix to avoid crashes. See ticket #1508

File:

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

trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

@@ -150 +150 @@
 
          IF( zcfl > 0.5_wp .AND. lwp )   ncfl = ncfl + 1
-         IF( lwp ) THEN
-            IF( ncfl > 0 ) THEN   
-               WRITE(cltmp,'(i6.1)') ncfl
-               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 criterion for ice advection is always smaller than 1/2 '
-            ENDIF
-         ENDIF
+!!         IF( lwp ) THEN
+!!            IF( ncfl > 0 ) THEN   
+!!               WRITE(cltmp,'(i6.1)') ncfl
+!!               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 criterion for ice advection is always smaller than 1/2 '
+!!            ENDIF
+!!         ENDIF
 
          !-------------------------