Changeset 10968 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/lib_mpp.F90

Timestamp:

2019-05-13T11:43:03+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 print levels implementation

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/lib_mpp.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/lib_mpp.F90

@@ -322 +322 @@
       mynode = mpprank
 
-      IF( mynode == 0 ) THEN
+      IF( mynode == 0 .AND. nprint > 2) THEN
          CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
          WRITE(kumond, nammpp)      
@@ -1517 +1517 @@
             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,*) ' '
@@ -1986 +1986 @@
          &  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