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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/nemogcm.F90

@@ -225 +225 @@
          WRITE(numout,*) '   ==>>>   nemo_gcm: a total of ', nstop, ' errors have been found'
          WRITE(numout,*)
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -261 +262 @@
       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   &
          &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             &
-         &             ln_timing, ln_diacfl
+         &             ln_timing, ln_diacfl, ln_flush
       NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_closea, ln_write_cfg, cn_domcfg_out, ln_use_jattr
       !!----------------------------------------------------------------------
@@ -393 +394 @@
          !
          IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA
+         IF(lflush) CALL FLUSH(numout)
          !
       ENDIF
@@ -497 +499 @@
       IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments
       !
-      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA
+      IF(lwp .AND. nprint > 1) THEN
+         WRITE(numout,cform_aaa)           ! Flag AAAAAAA
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
       IF( ln_timing    )   CALL timing_stop( 'nemo_init')
@@ -541 +546 @@
       ENDIF
       !
+      lflush    = ln_flush
       nictls    = nn_ictls
       nictle    = nn_ictle
@@ -557 +563 @@
          WRITE(numout,*) '         filename to be written                        cn_domcfg_out = ', TRIM(cn_domcfg_out)
          WRITE(numout,*) '      use file attribute if exists as i/p j-start   ln_use_jattr     = ', ln_use_jattr
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       IF( .NOT.ln_read_cfg )   ln_closea = .false.   ! dealing possible only with a domcfg file
@@ -572 +579 @@
             ijsplt = isplt * jsplt            ! total number of processors ijsplt
          ENDIF
-         IF(lwp) WRITE(numout,*)'          - The total number of processors over which the'
-         IF(lwp) WRITE(numout,*)'            print control will be done is ijsplt : ', ijsplt
+         IF(lwp) THEN
+            WRITE(numout,*)'          - The total number of processors over which the'
+            WRITE(numout,*)'            print control will be done is ijsplt : ', ijsplt
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          !
          !                              ! indices used for the SUM control