Changeset 10949 for NEMO/branches

Timestamp:

2019-05-08T17:33:35+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 corrections to previous changes

Location:

NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB

Files:

• icblbc.F90 (modified) (1 diff)
• icbstp.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icblbc.F90

@@ -532 +532 @@
       IF( npolj /= 0 .AND. jpni > 1 ) CALL icb_lbc_mpp_nfld( )
 
-      IF( nn_verbose_level > 0 .AND. numicb .NE. -1) THEN
+      IF( nn_verbose_level > 0) THEN
          i = 0
          this => first_berg

NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbstp.F90

@@ -86 +86 @@
       !                                   !* write out time
       ll_verbose = .FALSE.
-      IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) &
-         ll_verbose = ( nn_verbose_level >= 0 ) .AND. (numicb /= -1)
+      IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) ll_verbose = ( nn_verbose_level >= 0 )
       !
-      IF( ll_verbose )   WRITE(numicb,9100) nktberg, ndastp, nsec_day
+      IF( ll_verbose .AND. numicb /= -1 )   WRITE(numicb,9100) nktberg, ndastp, nsec_day
  9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8)
       !