- 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/ZDF/zdfiwm.F90
r10968 r10986 328 328 WRITE(numout,*) 329 329 WRITE(numout,*) ' Total power consumption by av_wave = ', zztmp * 1.e-12_wp, 'TW' 330 IF(lflush) CALL FLUSH(numout) 330 331 ENDIF 331 332 ENDIF … … 439 440 WRITE(numout,*) ' Variable (T) or constant (F) mixing efficiency = ', ln_mevar 440 441 WRITE(numout,*) ' Differential internal wave-driven mixing (T) or not (F) = ', ln_tsdiff 442 IF(lflush) CALL FLUSH(numout) 441 443 ENDIF 442 444 … … 451 453 WRITE(numout,*) ' Force the background value applied to avm & avt in TKE to be everywhere ', & 452 454 & 'the viscous molecular value & a very small diffusive value, resp.' 455 IF(lflush) CALL FLUSH(numout) 453 456 ENDIF 454 457 … … 488 491 WRITE(numout,*) ' Pycnocline-intensifed wave-breaking energy: ', zpyc * 1.e-12_wp, 'TW' 489 492 WRITE(numout,*) ' Critical slope wave-breaking energy: ', zcri * 1.e-12_wp, 'TW' 493 IF(lflush) CALL FLUSH(numout) 490 494 ENDIF 491 495 !
Note: See TracChangeset
for help on using the changeset viewer.