- 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/DOM/domvvl.F90
r11536 r11782 820 820 CALL iom_get( numror, jpdom_autoglo, 'e3t_n', e3t_n(:,:,:), ldxios = lrxios ) 821 821 ! needed to restart if land processor not computed 822 IF(lwp ) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files'822 IF(lwp .AND. nprint > 0) write(numout,*) 'dom_vvl_rst : e3t_b and e3t_n found in restart files' 823 823 WHERE ( tmask(:,:,:) == 0.0_wp ) 824 824 e3t_n(:,:,:) = e3t_0(:,:,:) … … 952 952 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 953 953 ! ! =================== 954 IF(lwp ) WRITE(numout,*) '---- dom_vvl_rst ----'954 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- dom_vvl_rst ----' 955 955 IF( lwxios ) CALL iom_swap( cwxios_context ) 956 956 ! ! --------- ! … … 997 997 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 998 998 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) 999 IF(lwm ) WRITE ( numond, nam_vvl )999 IF(lwm .AND. nprint > 2) WRITE ( numond, nam_vvl ) 1000 1000 ! 1001 1001 IF(lwp) THEN ! Namelist print
Note: See TracChangeset
for help on using the changeset viewer.