Changeset 12678

Timestamp:

2020-04-03T18:15:32+02:00 (3 years ago)

Author:

charris

Message:

A couple of additional changes to reduce unnecessary output.

File:

• branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90

@@ -687 +687 @@
       IF (ln_grid_search_lookup) THEN
          
-         WRITE(numout,*) 'Calling obs_grid_setup'
+         IF(lwp) WRITE(numout,*) 'Calling obs_grid_setup'
          
          IF(lwp) WRITE(numout,*)
@@ -724 +724 @@
             ! initially assume size is as defined (to be fixed)
             
-            WRITE(numout,*) 'Reading: ',cfname
+            IF (lwp) WRITE(numout,*) 'Reading: ',cfname
             
             CALL chkerr( nf90_open( TRIM( cfname ), nf90_nowrite, idfile ), &