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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdmxl.F90

@@ -373 +373 @@
          IF( ln_ctl ) THEN
             WRITE(numout,*) '             we reach kt == nit000 + 1 = ', nit000+1
+            IF(lflush) CALL FLUSH(numout)
             CALL prt_ctl(tab2d_1=tmlbb   , clinfo1=' tmlbb   -   : ', mask1=tmask)
             CALL prt_ctl(tab2d_1=tmlbn   , clinfo1=' tmlbn   -   : ', mask1=tmask)
@@ -383 +384 @@
          IF( ln_trdmxl_instant ) THEN
             WRITE(numout,*) '             restart from kt == nit000 = ', nit000
+            IF(lflush) CALL FLUSH(numout)
             CALL prt_ctl(tab2d_1=tmlbb   , clinfo1=' tmlbb   -   : ', mask1=tmask)
             CALL prt_ctl(tab2d_1=tmlbn   , clinfo1=' tmlbn   -   : ', mask1=tmask)
@@ -388 +390 @@
          ELSE
             WRITE(numout,*) '             restart from kt == nit000 = ', nit000
+            IF(lflush) CALL FLUSH(numout)
             CALL prt_ctl(tab2d_1=tmlbn          , clinfo1=' tmlbn           -  : ', mask1=tmask)
             CALL prt_ctl(tab2d_1=hmxlbn         , clinfo1=' hmxlbn          -  : ', mask1=tmask)
@@ -611 +614 @@
             WRITE(numout,*) '          TRA zsmlres (jpi/2,jpj/2) : ', zsmlres (jpi/2,jpj/2)
             WRITE(numout,*) '          TRA zsmlres2(jpi/2,jpj/2) : ', zsmlres2(jpi/2,jpj/2)
+            IF(lflush) CALL FLUSH(numout)
             !
          END IF
@@ -753 +757 @@
          WRITE(numout,*) '      unit conversion factor                     rn_ucf             = ', rn_ucf
          WRITE(numout,*) '      criteria to compute the MLD                rn_rho_c           = ', rn_rho_c
+         IF(lflush) CALL FLUSH(numout)
       ENDIF