- 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/LBC/mppini.F90
r11640 r11782 171 171 !!---------------------------------------------------------------------- 172 172 ! 173 llwrtlay = lwp.OR. ln_ctl .OR. sn_cfctl%l_layout173 llwrtlay = (lwp.AND.nprint>1) .OR. ln_ctl .OR. sn_cfctl%l_layout 174 174 ! 175 175 ! 0. read namelists parameters … … 194 194 ENDIF 195 195 ! 196 IF(lwm ) WRITE( numond, nammpp )196 IF(lwm .AND. nprint > 2) WRITE( numond, nammpp ) 197 197 198 198 ! do we need to take into account bdy_msk? … … 517 517 ! 5. Subdomain print 518 518 ! ------------------ 519 IF(lwp ) THEN519 IF(lwp .AND. nprint > 1) THEN 520 520 ifreq = 4 521 521 il1 = 1 … … 656 656 ! 657 657 nproc = narea-1 658 IF(lwp ) THEN658 IF(lwp .AND. nprint > 0) THEN 659 659 WRITE(numout,*) 660 660 WRITE(numout,*) ' resulting internal parameters : ' … … 1204 1204 idid(2) = 2 1205 1205 1206 IF(lwp ) THEN1206 IF(lwp.AND. nprint > 0) THEN 1207 1207 WRITE(numout,*) 1208 1208 WRITE(numout,*) 'mpp_init_ioipsl : iloc = ', iloc (1), iloc (2)
Note: See TracChangeset
for help on using the changeset viewer.