- Timestamp:
- 2019-12-12T13:15:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS/nemogcm.F90
r12202 r12210 185 185 INTEGER :: ios, ilocal_comm ! local integers 186 186 !! 187 NAMELIST/namctl/ ln_ctl , sn_cfctl, nn_print, nn_ictls, nn_ictle,&187 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 188 188 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 189 189 & ln_timing, ln_diacfl … … 246 246 ! 247 247 ! !--------------------! 248 ! ! Open listing units ! -> need ln_ctl from namctl to define lwp248 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp 249 249 ! !--------------------! 250 250 ! … … 254 254 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 255 255 ! 256 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 256 ! finalize the definition of namctl variables 257 IF( sn_cfctl%l_allon ) THEN 258 ! Turn on all options. 259 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 260 ! Ensure all processors are active 261 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 262 ELSEIF( sn_cfctl%l_config ) THEN 263 ! Activate finer control of report outputs 264 ! optionally switch off output from selected areas (note this only 265 ! applies to output which does not involve global communications) 266 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 267 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 268 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 269 ELSE 270 ! turn off all options. 271 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 272 ENDIF 273 ! 274 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 257 275 ! 258 276 IF(lwp) THEN ! open listing units … … 289 307 ! 290 308 ENDIF 291 !292 ! finalize the definition of namctl variables293 IF( sn_cfctl%l_config ) THEN294 ! Activate finer control of report outputs295 ! optionally switch off output from selected areas (note this only296 ! applies to output which does not involve global communications)297 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. &298 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) &299 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. )300 ELSE301 ! Use ln_ctl to turn on or off all options.302 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )303 ENDIF304 309 ! 305 310 IF(lwm) WRITE( numond, namctl ) … … 343 348 CALL eos_init ! Equation of seawater 344 349 CALL dom_init('SAS') ! Domain 345 IF( ln_ctl ) CALL prt_ctl_init ! Print control 350 IF( sn_cfctl%l_prtctl ) & 351 & CALL prt_ctl_init ! Print control 346 352 347 353 CALL day_init ! model calendar (using both namelist and restart infos) … … 371 377 !! ** Purpose : control print setting 372 378 !! 373 !! ** Method : - print namctl information and check some consistencies379 !! ** Method : - print namctl and namcfg information and check some consistencies 374 380 !!---------------------------------------------------------------------- 375 381 ! … … 379 385 WRITE(numout,*) '~~~~~~~~' 380 386 WRITE(numout,*) ' Namelist namctl' 381 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 387 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 388 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 382 389 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 383 390 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 385 392 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 386 393 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 387 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 388 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 394 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 395 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 396 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 389 397 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 390 398 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 424 432 ! ! Parameter control 425 433 ! 426 IF( ln_ctl ) THEN! sub-domain area indices for the control prints434 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 427 435 IF( lk_mpp .AND. jpnij > 1 ) THEN 428 436 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 544 552 sn_cfctl%l_oceout = setto 545 553 sn_cfctl%l_layout = setto 546 sn_cfctl%l_mppout = setto 547 sn_cfctl%l_mpptop = setto 554 sn_cfctl%l_prtctl = setto 555 sn_cfctl%l_prttrc = setto 556 sn_cfctl%l_oasout = setto 548 557 END SUBROUTINE nemo_set_cfctl 549 558
Note: See TracChangeset
for help on using the changeset viewer.