Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tramle.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/TRA/tramle.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRA/tramle.F90

@@ -289 +289 @@
          WRITE(numout,*) '         =1 no MLE in case of convection ; =0 always MLE              nn_conv   = ', nn_conv
          WRITE(numout,*) '         Density difference used to define ML for FK              rn_rho_c_mle  = ', rn_rho_c_mle
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -300 +301 @@
             WRITE(numout,*) '   ==>>>   Mixed Layer Eddy parametrisation NOT used'
          ENDIF
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -305 +307 @@
          !
          rb_c = grav * rn_rho_c_mle /rau0        ! Mixed Layer buoyancy criteria
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) '      ML buoyancy criteria = ', rb_c, ' m/s2 '
-         IF(lwp) WRITE(numout,*) '      associated ML density criteria defined in zdfmxl = ', rho_c, 'kg/m3'
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) '      ML buoyancy criteria = ', rb_c, ' m/s2 '
+            WRITE(numout,*) '      associated ML density criteria defined in zdfmxl = ', rho_c, 'kg/m3'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          !
          IF( nn_mle == 0 ) THEN           ! MLE array allocation & initialisation