Changeset 11782 for NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC

Timestamp:

2019-10-24T10:30:30+02:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2320 print levels in ICE/OCE

Location:

NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC

Files:

• lib_mpp.F90 (modified) (2 diffs)
• mppini.F90 (modified) (5 diffs)

NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/lib_mpp.F90

@@ -946 +946 @@
             crname_dlg(n_sequence_dlg) = cdname     ! keep the name of the calling routine
          ENDIF
-      ELSE IF ( ncom_stp == nit000+2*ncom_freq ) THEN
+      ELSE IF ( ncom_stp == nit000+2*ncom_freq .AND. nprint > 1 ) THEN
          CALL ctl_opn( numcom, 'communication_report.txt', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
          WRITE(numcom,*) ' '
@@ -1204 +1204 @@
          &  OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat                      , ERR=100, IOSTAT=iost )   
       IF( iost == 0 ) THEN
-         IF(ldwp) THEN
+         IF(ldwp .AND. nprint > 2) THEN
             WRITE(kout,*) '     file   : ', TRIM(clfile),' open ok'
             WRITE(kout,*) '     unit   = ', knum

NEMO/branches/2019/dev_r11756_text_output/src/OCE/LBC/mppini.F90

@@ -171 +171 @@
       !!----------------------------------------------------------------------
       !
-      llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout
+      llwrtlay = (lwp.AND.nprint>1) .OR. ln_ctl .OR. sn_cfctl%l_layout
       !
       !  0. read namelists parameters
@@ -194 +194 @@
       ENDIF
       !
-      IF(lwm)   WRITE( numond, nammpp )
+      IF(lwm  .AND. nprint > 2)   WRITE( numond, nammpp )
 
       ! do we need to take into account bdy_msk?
@@ -517 +517 @@
       ! 5. Subdomain print
       ! ------------------
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 1) THEN
          ifreq = 4
          il1 = 1
@@ -656 +656 @@
       !
       nproc = narea-1
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 0) THEN
          WRITE(numout,*)
          WRITE(numout,*) '   resulting internal parameters : '
@@ -1204 +1204 @@
       idid(2) = 2
 
-      IF(lwp) THEN
+      IF(lwp.AND. nprint > 0) THEN
           WRITE(numout,*)
           WRITE(numout,*) 'mpp_init_ioipsl :   iloc  = ', iloc (1), iloc (2)