Changeset 11782 for NEMO/branches/2019/dev_r11756_text_output/src/SAS
- Timestamp:
- 2019-10-24T10:30:30+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11756_text_output/src/SAS
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_text_output/src/SAS/daymod.F90
r10068 r11782 134 134 135 135 ! control print 136 IF(lwp ) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') &136 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i6,a,i2,a,i2,a,i8,a,i8,a,i8,a,i8)') & 137 137 & ' =======>> 1/2 time step before the start of the run DATE Y/M/D = ', & 138 138 & nyear, '/', nmonth, '/', nday, ' nsec_day:', nsec_day, ' nsec_week:', nsec_week, ' & … … 267 267 CALL ymds2ju( nyear, 01, 01, 0.0, fjulstartyear ) 268 268 ! 269 IF(lwp ) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, &269 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i4.4,a,i2.2,a,i2.2,a,i3.3)') '======>> time-step =', kt, & 270 270 & ' New day, DATE Y/M/D = ', nyear, '/', nmonth, '/', nday, ' nday_year = ', nday_year 271 IF(lwp ) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, &271 IF(lwp .AND. nprint > 0) WRITE(numout,'(a,i8,a,i7,a,i5)') ' nsec_year = ', nsec_year, & 272 272 & ' nsec_month = ', nsec_month, ' nsec_day = ', nsec_day, ' nsec_week = ', nsec_week 273 273 ENDIF -
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 -
NEMO/branches/2019/dev_r11756_text_output/src/SAS/sbcssm.F90
r11536 r11782 192 192 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 193 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) 194 IF(lwm ) WRITE ( numond, namsbc_sas )194 IF(lwm .AND. nprint > 2) WRITE ( numond, namsbc_sas ) 195 195 ! 196 196 IF(lwp) THEN ! Control print
Note: See TracChangeset
for help on using the changeset viewer.