Changeset 5202 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
- Timestamp:
- 2015-04-07T17:40:16+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r5180 r5202 150 150 151 151 IF( zcfl > 0.5_wp .AND. lwp ) ncfl = ncfl + 1 152 IF( lwp ) THEN153 IF( ncfl > 0 ) THEN154 WRITE(cltmp,'(i6.1)') ncfl155 CALL ctl_warn( 'lim_trp: ncfl= ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ')156 ELSE157 ! WRITE(numout,*) 'lim_trp : CFL criterion for ice advection is always smaller than 1/2 '158 ENDIF159 ENDIF152 !! IF( lwp ) THEN 153 !! IF( ncfl > 0 ) THEN 154 !! WRITE(cltmp,'(i6.1)') ncfl 155 !! CALL ctl_warn( 'lim_trp: ncfl= ', TRIM(cltmp), 'advective ice time-step using a split in sub-time-step ') 156 !! ELSE 157 !! ! WRITE(numout,*) 'lim_trp : CFL criterion for ice advection is always smaller than 1/2 ' 158 !! ENDIF 159 !! ENDIF 160 160 161 161 !-------------------------
Note: See TracChangeset
for help on using the changeset viewer.