- 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/C1D/dyncor_c1d.F90
r10888 r10986 48 48 !!---------------------------------------------------------------------- 49 49 50 IF(lwp) WRITE(numout,*) 51 IF(lwp) WRITE(numout,*) 'cor_c1d : Coriolis factor at T-point' 52 IF(lwp) WRITE(numout,*) '~~~~~~~' 50 IF(lwp) THEN 51 WRITE(numout,*) 52 WRITE(numout,*) 'cor_c1d : Coriolis factor at T-point' 53 WRITE(numout,*) '~~~~~~~' 54 IF(lflush) CALL FLUSH(numout) 55 ENDIF 53 56 54 57 ! … … 68 71 !!---------------------------------------------------------------------- 69 72 ! 70 IF( kt == nit000 ) THEN 71 IF(lwp) WRITE(numout,*) 72 IF(lwp) WRITE(numout,*) 'dyn_cor_c1d : total vorticity trend in 1D' 73 IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 73 IF( kt == nit000 .AND. lwp) THEN 74 WRITE(numout,*) 75 WRITE(numout,*) 'dyn_cor_c1d : total vorticity trend in 1D' 76 WRITE(numout,*) '~~~~~~~~~~' 77 IF(lflush) CALL FLUSH(numout) 74 78 ENDIF 75 79 !
Note: See TracChangeset
for help on using the changeset viewer.