- 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/SAS/nemogcm.F90
r11536 r11782 96 96 CALL mpp_max( 'nemogcm', nstop ) 97 97 98 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA98 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 99 99 100 100 ! !-----------------------! … … 148 148 ! !== finalize the run ==! 149 149 ! !------------------------! 150 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA150 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 151 151 ! 152 152 IF( nstop /= 0 .AND. lwp ) THEN ! error print … … 234 234 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 235 235 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 236 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )236 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 237 237 ELSE 238 238 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) … … 240 240 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 241 241 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 242 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )242 IF( lwm .AND. nprint > 2 ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 243 243 ENDIF 244 244 ! open /dev/null file to be able to supress output write easily … … 288 288 WRITE(numout,*) 289 289 ! 290 WRITE(numout,cform_aaa) ! Flag AAAAAAA290 IF(nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 291 291 ! 292 292 ENDIF … … 305 305 ENDIF 306 306 ! 307 IF(lwm ) WRITE( numond, namctl )307 IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 308 308 ! 309 309 ! !------------------------------------! … … 324 324 ENDIF 325 325 ! 326 IF(lwm) WRITE( numond, namcfg ) 326 nprint = nn_print ! convert DOCTOR namelist names into OLD names 327 ! 328 IF(lwm .AND. nprint > 2) WRITE( numond, namcfg ) 327 329 ! 328 330 ! !-----------------------------------------! … … 362 364 CALL icb_init( rdt, nit000) ! initialise icebergs instance 363 365 ! 364 IF(lwp ) WRITE(numout,cform_aaa) ! Flag AAAAAAA366 IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa) ! Flag AAAAAAA 365 367 ! 366 368 IF( ln_timing ) CALL timing_stop( 'nemo_init') … … 406 408 ENDIF 407 409 ! 408 nprint = nn_print ! convert DOCTOR namelist names into OLD names409 410 nictls = nn_ictls 410 411 nictle = nn_ictle
Note: See TracChangeset
for help on using the changeset viewer.