- 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/nemogcm.F90
r11536 r11782 153 153 CALL mpp_max( 'nemogcm', nstop ) 154 154 155 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA155 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 156 156 157 157 ! !-----------------------! … … 226 226 ! !== finalize the run ==! 227 227 ! !------------------------! 228 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA228 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 229 229 ! 230 230 IF( nstop /= 0 .AND. lwp ) THEN ! error print … … 309 309 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 310 310 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 311 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )312 311 ! open /dev/null file to be able to supress output write easily 313 312 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) … … 325 324 ! 326 325 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 326 ! 327 nprint = nn_print ! convert DOCTOR namelist names into OLD names 328 ! 329 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 327 330 ! 328 331 IF(lwp) THEN ! open listing units … … 352 355 WRITE(numout,*) 353 356 ! 354 WRITE(numout,cform_aaa) ! Flag AAAAAAA357 IF(nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 355 358 ! 356 359 ENDIF … … 369 372 ENDIF 370 373 ! 371 IF(lwm ) WRITE( numond, namctl )374 IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 372 375 ! 373 376 ! !------------------------------------! … … 388 391 ENDIF 389 392 ! 390 IF(lwm ) WRITE( numond, namcfg )393 IF(lwm .AND. nprint > 2) WRITE( numond, namcfg ) 391 394 ! 392 395 ! !-----------------------------------------! … … 492 495 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 493 496 ! 494 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA497 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 495 498 ! 496 499 IF( ln_timing ) CALL timing_stop( 'nemo_init') … … 536 539 ENDIF 537 540 ! 538 nprint = nn_print ! convert DOCTOR namelist names into OLD names539 541 nictls = nn_ictls 540 542 nictle = nn_ictle
Note: See TracChangeset
for help on using the changeset viewer.