Changeset 5138


Ignore:
Timestamp:
2015-03-11T10:57:31+01:00 (6 years ago)
Author:
vancop
Message:

«Useless ctl_stop in limtrp.F90 (lim3)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

    r5134 r5138  
    142142 
    143143         IF( zcfl > 0.5_wp .AND. lwp )   ncfl = ncfl + 1 
    144          IF( numit == nlast .AND. lwp ) THEN 
     144         IF( lwp ) THEN 
    145145            IF( ncfl > 0 ) THEN    
    146146               WRITE(cltmp,'(i6.1)') ncfl 
    147                CALL ctl_stop('STOP',TRIM(cltmp) ) 
    148                CALL ctl_warn( 'lim_trp: ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ') 
     147               CALL ctl_warn( 'lim_trp: ncfl= ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ') 
    149148            ELSE 
    150                WRITE(numout,*) 'lim_trp : CFL criteria for ice advection is always smaller than 1/2 ' 
     149               WRITE(numout,*) 'lim_trp : CFL criterion for ice advection is always smaller than 1/2 ' 
    151150            ENDIF 
    152151         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.