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

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

@@ -105 +105 @@
          WRITE(numout,*) 'zdf_bfr : Set bottom friction coefficient (non-linear case)'
          WRITE(numout,*) '~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -262 +263 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~'
       IF(lwp) WRITE(numout,*) '   Namelist nam_bfr : set bottom friction parameters'
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       SELECT CASE (nn_bfr)
@@ -399 +401 @@
       !
       IF(lwp) WRITE(numout,*) '      implicit bottom friction switch                ln_bfrimp  = ', ln_bfrimp
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       !                              ! Make sure ln_zdfexp=.false. when use implicit bfr
@@ -430 +433 @@
                    WRITE(numout,*) 'BFR ', narea, nimpp+ji, njmpp+jj, ikbu
                    WRITE(numout,*) 'BFR ', ABS( bfrcoef2d(ji,jj) ), zfru
+                   IF(lflush) CALL flush(numout)
                 ENDIF
                 ictu = ictu + 1
@@ -437 +441 @@
                      WRITE(numout,*) 'BFR ', narea, nimpp+ji, njmpp+jj, ikbv
                      WRITE(numout,*) 'BFR ', bfrcoef2d(ji,jj), zfrv
+                     IF(lflush) CALL flush(numout)
                  ENDIF
                  ictv = ictv + 1
@@ -452 +457 @@
                       WRITE(numout,*) 'TFR ', narea, nimpp+ji, njmpp+jj, ikbu
                       WRITE(numout,*) 'TFR ', ABS( tfrcoef2d(ji,jj) ), zfru
+                      IF(lflush) CALL flush(numout)
                    ENDIF
                    ictu = ictu + 1
@@ -459 +465 @@
                       WRITE(numout,*) 'TFR ', narea, nimpp+ji, njmpp+jj, ikbv
                       WRITE(numout,*) 'TFR ', tfrcoef2d(ji,jj), zfrv
+                      IF(lflush) CALL flush(numout)
                    ENDIF
                    ictv = ictv + 1
@@ -483 +490 @@
          IF ( ln_isfcav ) WRITE(numout,*) ' Top friction coefficient now ranges from: ', zmintfr, ' to ', zmaxtfr
          WRITE(numout,*) ' Bottom/Top friction coefficient will be reduced where necessary'
+         IF(lflush) CALL flush(numout)
       ENDIF
       ENDIF