Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

Timestamp:

2020-03-13T17:33:02+01:00 (4 years ago)

Author:

charris

Message:

Changes from GO6 package branch (GMED ticket 450):

svn merge -r 11035:11101 ​svn+ssh://charris@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/UKMO/dev_r5518_GO6_package

File:

• branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90 (modified) (8 diffs)

branches/UKMO/dev_r5518_GO6_starthour_obsoper/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
       !
@@ -257 +258 @@
       READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, nambfr )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, nambfr )
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) 'zdf_bfr_init : momentum bottom friction'
       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