- Timestamp:
- 2019-12-12T13:15:13+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS/daymod.F90
r10068 r12210 275 275 IF( nsec_week > 7*nsecd ) nsec_week = ndt05 ! New week 276 276 277 IF( ln_ctl) THEN277 IF(sn_cfctl%l_prtctl) THEN 278 278 WRITE(charout,FMT="('kt =', I4,' d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 279 279 CALL prt_ctl_info(charout) -
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 -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS/sbcssm.F90
r12202 r12210 131 131 vb (:,:,1) = ssv_m(:,:) 132 132 133 IF( ln_ctl) THEN! print control133 IF(sn_cfctl%l_prtctl) THEN ! print control 134 134 CALL prt_ctl(tab2d_1=sst_m, clinfo1=' sst_m - : ', mask1=tmask ) 135 135 CALL prt_ctl(tab2d_1=sss_m, clinfo1=' sss_m - : ', mask1=tmask ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS/stpctl.F90
r10603 r12210 63 63 ! 64 64 ll_wrtstp = ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 65 ll_colruns = ll_wrtstp .AND. ( ln_ctl .OR.sn_cfctl%l_runstat )65 ll_colruns = ll_wrtstp .AND. ( sn_cfctl%l_runstat ) 66 66 ll_wrtruns = ll_colruns .AND. lwm 67 67 IF( kt == nit000 .AND. lwp ) THEN … … 73 73 ! ! open run.stat file(s) at start whatever 74 74 ! ! the value of sn_cfctl%ptimincr 75 IF( lwm .AND. ( ln_ctl .OR.sn_cfctl%l_runstat ) ) THEN75 IF( lwm .AND. ( sn_cfctl%l_runstat ) ) THEN 76 76 CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 77 77 clname = 'run.stat.nc'
Note: See TracChangeset
for help on using the changeset viewer.