Changeset 115 for trunk/NEMO/LIM_SRC/limtrp.F90
- Timestamp:
- 2004-06-28T16:52:01+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/limtrp.F90
r76 r115 24 24 USE limhdf 25 25 USE lbclnk 26 USE lib_mpp 26 27 27 28 IMPLICIT NONE … … 122 123 zcfl = MAX( zcfl, MAXVAL( ABS( zvi_v( : ,1:jpjm1) ) * rdt_ice / e2v( : ,1:jpjm1) ) ) 123 124 124 IF ( zcfl > 0.5 ) WRITE(numout,*) 'lim_trp : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl 125 IF (lk_mpp ) CALL mpp_max(zcfl) 126 127 IF ( zcfl > 0.5 .AND. lwp ) WRITE(numout,*) 'lim_trp : violation of cfl criterion the ',nday,'th day, cfl = ',zcfl 125 128 126 129 ! content of properties
Note: See TracChangeset
for help on using the changeset viewer.