- 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/zdfevd.F90
r10888 r10986 62 62 !!---------------------------------------------------------------------- 63 63 ! 64 IF( kt == nit000 ) THEN 65 IF(lwp) WRITE(numout,*) 66 IF(lwp) WRITE(numout,*) 'zdf_evd : Enhanced Vertical Diffusion (evd)' 67 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 68 IF(lwp) WRITE(numout,*) 64 IF( kt == nit000 .AND. lwp) THEN 65 WRITE(numout,*) 66 WRITE(numout,*) 'zdf_evd : Enhanced Vertical Diffusion (evd)' 67 WRITE(numout,*) '~~~~~~~ ' 68 WRITE(numout,*) 69 IF(lflush) CALL FLUSH(numout) 69 70 ENDIF 70 71 !
Note: See TracChangeset
for help on using the changeset viewer.