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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/wet_dry.F90

@@ -104 +104 @@
          WRITE(numout,*) '      cut off depth sbc for wd   rn_wd_sbcdep       = ', rn_wd_sbcdep
          WRITE(numout,*) '      fraction to start sbc wgt rn_wd_sbcfra        = ', rn_wd_sbcfra
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       IF( .NOT. ln_read_cfg ) THEN
-         IF(lwp) WRITE(numout,*) '      No configuration file so seting ssh_ref to zero  '
+         IF(lwp) THEN
+            WRITE(numout,*) '      No configuration file so seting ssh_ref to zero  '
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          ssh_ref=0._wp
       ENDIF
@@ -266 +270 @@
 !!gm
       !
-      IF(jflag == 1 .AND. lwp)   WRITE(numout,*) 'Need more iterations in wad_lmt!!!'
+      IF(jflag == 1 .AND. lwp)   THEN
+         WRITE(numout,*) 'Need more iterations in wad_lmt!!!'
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
       !IF( ln_rnf      )   CALL sbc_rnf_div( hdivn )          ! runoffs (update hdivn field)
@@ -390 +397 @@
 !!gm end
       !
-      IF( jflag == 1 .AND. lwp )   WRITE(numout,*) 'Need more iterations in wad_lmt_bt!!!'
+      IF( jflag == 1 .AND. lwp )   THEN
+         WRITE(numout,*) 'Need more iterations in wad_lmt_bt!!!'
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
       !IF( ln_rnf      )   CALL sbc_rnf_div( hdivn )          ! runoffs (update hdivn field)