Changeset 10766


Ignore:
Timestamp:
2019-03-15T13:33:37+01:00 (19 months ago)
Author:
andmirek
Message:

GMED 450: changes related to prints from mpp routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

    r6498 r10766  
    288288      IF(lwp) WRITE(numout,*) 
    289289 
    290       IF(lwp) THEN 
     290      IF(lwp .AND. nprint>1) THEN 
    291291         ifreq = 4 
    292292         il1   = 1 
     
    364364 
    365365     ! Save processor layout in layout.dat file  
    366        IF (lwp) THEN 
     366       IF (lwp .AND. nprint > 1) THEN 
    367367        CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 
    368368        WRITE(inum,'(a)') '   jpnij     jpi     jpj     jpk  jpiglo  jpjglo' 
     
    430430      ! Periodicity : no corner if nbondi = 2 and nperio != 1 
    431431 
    432       IF(lwp) THEN 
     432      IF(lwp .and. nprint > 0) THEN 
    433433         WRITE(numout,*) ' nproc  = ', nproc 
    434434         WRITE(numout,*) ' nowe   = ', nowe  , ' noea   =  ', noea 
     
    505505      idid(2) = 2 
    506506 
    507       IF(lwp) THEN 
     507      IF(lwp .and nprint > 0) THEN 
    508508          WRITE(numout,*) 
    509509          WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2) 
Note: See TracChangeset for help on using the changeset viewer.