Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.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/nemogcm.F90 (modified) (9 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -250 +250 @@
       NAMELIST/namctl/ ln_ctl  ,sn_cfctl, nn_print, nn_ictls, nn_ictle,   &
          &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   &
-         &             nn_bench, nn_timing
+         &             nn_bench, nn_timing, ln_flush
       NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
          &             jpizoom, jpjzoom, jperio, ln_use_jattr
@@ -296 +296 @@
 #endif
       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names
+      lflush    = ln_flush          ! convert namelist variable to model variable
       !do it here because output.namelist.dyn is opened before nprint was set earlier
       !
@@ -405 +406 @@
          END DO
          WRITE(numout,cform_aaa)                                         ! Flag AAAAAAA
+         IF(lflush) CALL flush(numout)
          !
       ENDIF
@@ -510 +512 @@
       IF( lk_asminc     )   CALL asm_inc_init   ! Initialize assimilation increments
       IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler
+      IF(lwp .AND. lflush) CALL flush(numout)
       
       IF (nstop > 0) THEN
@@ -546 +549 @@
          WRITE(numout,*) '                              sn_cfctl%ptimincr  = ', sn_cfctl%ptimincr 
          WRITE(numout,*) '      level of print                  nn_print   = ', nn_print
+         WRITE(numout,*) '      flush numout/stat               ln_flush   = ', ln_flush
          WRITE(numout,*) '      Start i indice for SUM control  nn_ictls   = ', nn_ictls
          WRITE(numout,*) '      End i indice for SUM control    nn_ictle   = ', nn_ictle
@@ -554 +558 @@
          WRITE(numout,*) '      benchmark parameter (0/1)       nn_bench   = ', nn_bench
          WRITE(numout,*) '      timing activated    (0/1)       nn_timing  = ', nn_timing
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -581 +586 @@
          WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio   
          WRITE(numout,*) '      use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr
+         IF(lflush) CALL flush(numout)
       ENDIF
       !                             ! Parameter control
@@ -596 +602 @@
          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 .AND. lflush) CALL flush(numout)
          !
          !                              ! indices used for the SUM control
@@ -767 +774 @@
          WRITE (numout, *) 'WARNING: factorisation of number of PEs failed'
          WRITE (numout, *) '       : using grid of ',num_pes,' x 1'
+         IF(lflush) CALL flush(numout)
          jpnj = 1
          jpni = num_pes