- Timestamp:
- 2019-05-16T15:23:56+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DIA/diacfl.F90
r10888 r10986 142 142 WRITE(numout,*) ' Max Cv = ', rCv_max, ' at (i,j,k) = (',nCv_loc(1),nCv_loc(2),nCv_loc(3),') => dt/C = ', z2dt/rCv_max 143 143 WRITE(numout,*) ' Max Cw = ', rCw_max, ' at (i,j,k) = (',nCw_loc(1),nCw_loc(2),nCw_loc(3),') => dt/C = ', z2dt/rCw_max 144 IF(lflush) CALL FLUSH(numout) 144 145 ENDIF 145 146 ! … … 166 167 WRITE(numcfl,*) 'Timestep Direction Max C i j k' 167 168 WRITE(numcfl,*) '******************************************' 169 IF(lflush) CALL FLUSH(numout) 168 170 ENDIF 169 171 !
Note: See TracChangeset
for help on using the changeset viewer.