- Timestamp:
- 2019-10-24T10:30:30+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/OCE/TRA/traqsr.F90
r11536 r11782 135 135 !!gm case neuler not taken into account.... 136 136 IF( ln_rstart .AND. iom_varid( numror, 'qsr_hc_b', ldstop = .FALSE. ) > 0 ) THEN ! read in restart 137 IF(lwp ) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file'137 IF(lwp .AND. nprint >0) WRITE(numout,*) ' nit000-1 qsr tracer content forcing field read in the restart file' 138 138 z1_2 = 0.5_wp 139 139 CALL iom_get( numror, jpdom_autoglo, 'qsr_hc_b', qsr_hc_b, ldxios = lrxios ) ! before heat content trend due to Qsr flux … … 343 343 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 344 344 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist' ) 345 IF(lwm ) WRITE ( numond, namtra_qsr )345 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_qsr ) 346 346 ! 347 347 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.