Changeset 12678


Ignore:
Timestamp:
2020-04-03T18:15:32+02:00 (7 months ago)
Author:
charris
Message:

A couple of additional changes to reduce unnecessary output.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/OBS/obs_grid.F90

    r10120 r12678  
    687687      IF (ln_grid_search_lookup) THEN 
    688688          
    689          WRITE(numout,*) 'Calling obs_grid_setup' 
     689         IF(lwp) WRITE(numout,*) 'Calling obs_grid_setup' 
    690690          
    691691         IF(lwp) WRITE(numout,*) 
     
    724724            ! initially assume size is as defined (to be fixed) 
    725725             
    726             WRITE(numout,*) 'Reading: ',cfname 
     726            IF (lwp) WRITE(numout,*) 'Reading: ',cfname 
    727727             
    728728            CALL chkerr( nf90_open( TRIM( cfname ), nf90_nowrite, idfile ), & 
Note: See TracChangeset for help on using the changeset viewer.