Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

Timestamp:

2019-03-19T12:32:19+01:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 add flush after prints

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

@@ -83 +83 @@
          WRITE(numout,*) '      npc call  frequency                 nn_npc    = ', nn_npc
          WRITE(numout,*) '      npc print frequency                 nn_npcp   = ', nn_npcp
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -154 +155 @@
          CALL ctl_stop( ' except for TKE, GLS or KPP physics, a convection scheme is',   &
          &              ' required: ln_zdfevd or ln_zdfnpc logicals' )
-
+      !
+      IF(lwp .AND. lflush) CALL flush(numout)
       !                               !* Background eddy viscosity and diffusivity profil
       IF( nn_avb == 0 ) THEN                ! Define avmb, avtb from namelist parameter