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

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90

@@ -65 +65 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~'
       IF(lwp) WRITE(numout,*) '           jpnfl = ',jpnfl
+      IF(lwp .AND. lflush) CALL flush(numout)
       
       !-------------------------!
@@ -72 +73 @@
 
          IF(lwp) WRITE(numout,*) '        float restart file read'
+         IF(lwp .AND. lflush) CALL flush(numout)
          
          ! open the restart file 
@@ -93 +95 @@
 
             IF(lwp) WRITE(numout,*) '        add new floats'
+            IF(lwp .AND. lflush) CALL flush(numout)
 
             IF( ln_ariane )THEN  !Add new floats with ariane convention
@@ -148 +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)write(numout,*)'read:',jfl,flxx(jfl),flyy(jfl),flzz(jfl), nisobfl(jfl),ngrpfl(jfl),itrash
+         IF(lwp .AND. lflush) CALL flush(numout)
       END DO
       CLOSE(inum)
@@ -275 +279 @@
                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 .AND. lflush) CALL flush(numout)
             ENDIF
          END DO