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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/FLO/flodom.F90

@@ -59 +59 @@
       ! Initialisation with the geographical position or restart
       
-      IF(lwp) WRITE(numout,*) 'flo_dom : compute initial position of floats'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~'
-      IF(lwp) WRITE(numout,*) '           jpnfl = ',jpnfl
+      IF(lwp) THEN
+         WRITE(numout,*) 'flo_dom : compute initial position of floats'
+         WRITE(numout,*) '~~~~~~~~'
+         WRITE(numout,*) '           jpnfl = ',jpnfl
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       
       !-------------------------!
@@ -89 +92 @@
          IF( jpnfl > jpnrstflo )THEN
 
-            IF(lwp) WRITE(numout,*) '        add new floats'
+            IF(lwp) THEN
+               WRITE(numout,*) '        add new floats'
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
 
             IF( ln_ariane )THEN  !Add new floats with ariane convention
@@ -145 +151 @@
       DO jfl = kfl_start,kfl_end
          READ(inum,*) flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash
-         if(lwp)write(numout,*)'read:',jfl,flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash ; call flush(numout)
+         IF(lwp) THEN
+            write(numout,*)'read:',jfl,flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
       END DO
       CLOSE(inum)
@@ -266 +275 @@
          DO jfl =  kfl_start,kfl_end
             IF( idomfl(jfl) == 1 ) THEN
-               IF(lwp) WRITE(numout,*)'*****************************'
-               IF(lwp) WRITE(numout,*)'!!!!!!!  WARNING   !!!!!!!!!!'
-               IF(lwp) WRITE(numout,*)'*****************************'
-               IF(lwp) WRITE(numout,*)'The float number',jfl,'is out of the sea.'
-               IF(lwp) WRITE(numout,*)'geographical position',flxx(jfl),flyy(jfl),flzz(jfl)
-               IF(lwp) WRITE(numout,*)'index position',tpifl(jfl),tpjfl(jfl),tpkfl(jfl)
+               IF(lwp) THEN
+                  WRITE(numout,*)'*****************************'
+                  WRITE(numout,*)'!!!!!!!  WARNING   !!!!!!!!!!'
+                  WRITE(numout,*)'*****************************'
+                  WRITE(numout,*)'The float number',jfl,'is out of the sea.'
+                  WRITE(numout,*)'geographical position',flxx(jfl),flyy(jfl),flzz(jfl)
+                  WRITE(numout,*)'index position',tpifl(jfl),tpjfl(jfl),tpkfl(jfl)
+                  IF(lflush) CALL FLUSH(numout)
+               ENDIF
             ENDIF
          END DO