- Timestamp:
- 2019-05-13T11:43:03+02:00 (5 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynadv.F90
r10888 r10968 110 110 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 111 111 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 112 IF(lwm ) WRITE ( numond, namdyn_adv )112 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_adv ) 113 113 114 114 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynhpg.F90
r10888 r10968 157 157 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 158 158 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 159 IF(lwm ) WRITE ( numond, namdyn_hpg )159 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_hpg ) 160 160 ! 161 161 IF(lwp) THEN ! Control print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg.F90
r10888 r10968 207 207 READ ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 ) 208 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist', lwp ) 209 IF(lwm ) WRITE ( numond, namdyn_spg )209 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_spg ) 210 210 ! 211 211 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynspg_ts.F90
r10888 r10968 1436 1436 ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN ! Create restart file 1437 1437 ! ! ------------------- 1438 IF(lwp ) WRITE(numout,*) '---- ts_rst ----'1438 IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- ts_rst ----' 1439 1439 IF( lwxios ) CALL iom_swap( cwxios_context ) 1440 1440 CALL iom_rstput( kt, nitrst, numrow, 'ub2_b' , ub2_b (:,:), ldxios = lwxios ) -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/dynvor.F90
r10888 r10968 855 855 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 856 856 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 857 IF(lwm ) WRITE ( numond, namdyn_vor )857 IF(lwm .AND. nprint > 2) WRITE ( numond, namdyn_vor ) 858 858 ! 859 859 IF(lwp) THEN ! Namelist print -
NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DYN/wet_dry.F90
r10888 r10968 85 85 READ ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 86 86 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namwad in configuration namelist', .TRUE. ) 87 IF(lwm ) WRITE ( numond, namwad )87 IF(lwm .AND. nprint > 2 ) WRITE ( numond, namwad ) 88 88 ! 89 89 IF( rn_wd_sbcfra>=1 ) CALL ctl_stop( 'STOP', 'rn_wd_sbcfra >=1 : must be < 1' )
Note: See TracChangeset
for help on using the changeset viewer.