Changeset 10949


Ignore:
Timestamp:
2019-05-08T17:33:35+02:00 (18 months 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:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icblbc.F90

    r10948 r10949  
    532532      IF( npolj /= 0 .AND. jpni > 1 ) CALL icb_lbc_mpp_nfld( ) 
    533533 
    534       IF( nn_verbose_level > 0 .AND. numicb .NE. -1) THEN 
     534      IF( nn_verbose_level > 0) THEN 
    535535         i = 0 
    536536         this => first_berg 
  • NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbstp.F90

    r10948 r10949  
    8686      !                                   !* write out time 
    8787      ll_verbose = .FALSE. 
    88       IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) & 
    89          ll_verbose = ( nn_verbose_level >= 0 ) .AND. (numicb /= -1) 
     88      IF( nn_verbose_write > 0 .AND. MOD( kt-1 , nn_verbose_write ) == 0 ) ll_verbose = ( nn_verbose_level >= 0 ) 
    9089      ! 
    91       IF( ll_verbose )   WRITE(numicb,9100) nktberg, ndastp, nsec_day 
     90      IF( ll_verbose .AND. numicb /= -1 )   WRITE(numicb,9100) nktberg, ndastp, nsec_day 
    9291 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8) 
    9392      ! 
Note: See TracChangeset for help on using the changeset viewer.