Changeset 11854


Ignore:
Timestamp:
2019-11-05T11:05:25+01:00 (9 months ago)
Author:
smueller
Message:

Suppression of the listing of selected tidal constituents as part of standard output unless variable lwp is set to .TRUE. (ticket #2194)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10742_ENHANCE-12_SimonM-Tides/src/OCE/TDE/tide_mod.F90

    r11770 r11854  
    209209               IF (TRIM(pcnames(jk)) == tide_components(ji)%cname_tide) THEN 
    210210                  kcomp = kcomp + 1 
    211                   WRITE(numout, '(10X,"Tidal component #",I2.2,36X,"= ",A4)') kcomp, pcnames(jk) 
     211                  IF (lwp) WRITE(numout, '(10X,"Tidal component #",I2.2,36X,"= ",A4)') kcomp, pcnames(jk) 
    212212                  kcomppos(kcomp) = ji 
    213213                  EXIT 
Note: See TracChangeset for help on using the changeset viewer.