Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dtauvd.F90

Timestamp:

2019-05-16T15:23:56+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 add flush

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dtauvd.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/C1D/dtauvd.F90

@@ -84 +84 @@
             WRITE(numout,*) '   U & V current data not used'
          ENDIF
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !                             ! no initialization when restarting
@@ -155 +156 @@
             WRITE(numout,*)
             WRITE(numout,*) 'dta_uvd: interpolate U & V current data onto the s- or mixed s-z-coordinate mesh'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          !
@@ -210 +212 @@
       IF( .NOT. ln_uvd_dyndmp    ) THEN   !==   deallocate U & V current structure   ==! 
          !                                !==   (data used only for initialization)  ==!
-         IF(lwp) WRITE(numout,*) 'dta_uvd: deallocate U & V current arrays as they are only used to initialize the run'
+         IF(lwp) THEN
+            WRITE(numout,*) 'dta_uvd: deallocate U & V current arrays as they are only used to initialize the run'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
                                    DEALLOCATE( sf_uvd(1)%fnow )     ! U current arrays in the structure
          IF( sf_uvd(1)%ln_tint )   DEALLOCATE( sf_uvd(1)%fdta )