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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/SBC/sbcssm.F90

@@ -88 +88 @@
          IF( kt == nit000 .AND. .NOT. l_ssm_mean ) THEN   !   Initialisation: 1st time-step, no input means !
             !                                             ! ----------------------------------------------- !
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) 'sbc_ssm : mean fields initialised to instantaneous values'
-            IF(lwp) WRITE(numout,*) '~~~~~~~   '
+            IF(lwp) THEN
+               WRITE(numout,*)
+               WRITE(numout,*) 'sbc_ssm : mean fields initialised to instantaneous values'
+               WRITE(numout,*) '~~~~~~~   '
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             zcoef = REAL( nn_fsbc - 1, wp )
             ssu_m(:,:) = zcoef * ub(:,:,1)
@@ -151 +154 @@
          IF( lrst_oce ) THEN                              !      Write in the ocean restart file     !
             !                                             ! ---------------------------------------- !
-            IF(lwp) WRITE(numout,*)
-            IF(lwp) WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   &
+            IF(lwp) THEN
+               WRITE(numout,*)
+               WRITE(numout,*) 'sbc_ssm : sea surface mean fields written in ocean restart file ',   &
                &                    'at it= ', kt,' date= ', ndastp
-            IF(lwp) WRITE(numout,*) '~~~~~~~'
+               WRITE(numout,*) '~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             zf_sbc = REAL( nn_fsbc, wp )
             IF( lwxios ) CALL iom_swap(      cwxios_context          )
@@ -197 +203 @@
       IF( nn_fsbc == 1 ) THEN
          !
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbc_ssm_init : sea surface mean fields, nn_fsbc=1 : instantaneous values'
-         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ '
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) 'sbc_ssm_init : sea surface mean fields, nn_fsbc=1 : instantaneous values'
+            WRITE(numout,*) '~~~~~~~~~~~ '
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          !
       ELSE
          !               
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'sbc_ssm_init : sea surface mean fields'
-         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~ '
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) 'sbc_ssm_init : sea surface mean fields'
+            WRITE(numout,*) '~~~~~~~~~~~~ '
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          !
          IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN
@@ -224 +236 @@
             !
             IF( zf_sbc /= REAL( nn_fsbc, wp ) ) THEN      ! nn_fsbc has changed between 2 runs
-               IF(lwp) WRITE(numout,*) '   restart with a change in the frequency of mean from ', zf_sbc, ' to ', nn_fsbc 
+               IF(lwp) THEN
+                  WRITE(numout,*) '   restart with a change in the frequency of mean from ', zf_sbc, ' to ', nn_fsbc 
+                  IF(lflush) CALL FLUSH(numout)
+               ENDIF
                zcoef = REAL( nn_fsbc - 1, wp ) / zf_sbc 
                ssu_m(:,:) = zcoef * ssu_m(:,:) 
@@ -234 +249 @@
                frq_m(:,:) = zcoef * frq_m(:,:)
             ELSE
-               IF(lwp) WRITE(numout,*) '   mean fields read in the ocean restart file'
+               IF(lwp) THEN
+                  WRITE(numout,*) '   mean fields read in the ocean restart file'
+                  IF(lflush) CALL FLUSH(numout)
+               ENDIF
             ENDIF
          ENDIF
@@ -241 +259 @@
       IF( .NOT.l_ssm_mean ) THEN   ! default initialisation. needed by iceistate
          !
-         IF(lwp) WRITE(numout,*) '   default initialisation of ss._m arrays'
+         IF(lwp) THEN
+            WRITE(numout,*) '   default initialisation of ss._m arrays'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          ssu_m(:,:) = ub(:,:,1)
          ssv_m(:,:) = vb(:,:,1)