Changeset 11872 for NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS
- Timestamp:
- 2019-11-07T17:55:13+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/daymod.F90
r11869 r11872 275 275 IF( nsec_week > 7*nsecd ) nsec_week = ndt05 ! New week 276 276 277 IF( ln_ctl .OR. sn_cfctl%l_mppout) 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/fix_sn_cfctl_ticket2328/src/SAS/nemogcm.F90
r11869 r11872 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 ! … … 257 257 ! 258 258 ! finalize the definition of namctl variables 259 IF( sn_cfctl%l_config ) THEN 259 IF( sn_cfctl%l_allon ) THEN 260 ! Turn on all options. 261 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 262 ! Ensure all processors are active 263 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 264 ELSEIF( sn_cfctl%l_config ) THEN 260 265 ! Activate finer control of report outputs 261 266 ! optionally switch off output from selected areas (note this only … … 265 270 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 266 271 ELSE 267 ! Use ln_ctl to turn on oroff all options.268 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )269 ENDIF 270 ! 271 lwp = (narea == 1) .OR. ln_ctl .OR.sn_cfctl%l_oceout ! control of all listing output print272 ! turn off all options. 273 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 274 ENDIF 275 ! 276 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 272 277 ! 273 278 IF(lwp) THEN ! open listing units … … 347 352 CALL eos_init ! Equation of seawater 348 353 CALL dom_init('SAS') ! Domain 349 IF( ln_ctl .OR. sn_cfctl%l_mppout) &354 IF( sn_cfctl%l_prtctl ) & 350 355 & CALL prt_ctl_init ! Print control 351 356 … … 376 381 !! ** Purpose : control print setting 377 382 !! 378 !! ** Method : - print namctl information and check some consistencies383 !! ** Method : - print namctl and namcfg information and check some consistencies 379 384 !!---------------------------------------------------------------------- 380 385 ! … … 384 389 WRITE(numout,*) '~~~~~~~~' 385 390 WRITE(numout,*) ' Namelist namctl' 386 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 391 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 392 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 387 393 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 388 394 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 390 396 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 391 397 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 392 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 393 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 398 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 399 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 400 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 394 401 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 395 402 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 429 436 ! ! Parameter control 430 437 ! 431 IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN! sub-domain area indices for the control prints438 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 432 439 IF( lk_mpp .AND. jpnij > 1 ) THEN 433 440 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 553 560 sn_cfctl%l_oceout = setto 554 561 sn_cfctl%l_layout = setto 555 sn_cfctl%l_ mppout= setto556 sn_cfctl%l_ mpptop= setto562 sn_cfctl%l_prtctl = setto 563 sn_cfctl%l_prttrc = setto 557 564 sn_cfctl%l_oasout = setto 558 565 END SUBROUTINE nemo_set_cfctl -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/SAS/sbcssm.F90
r11869 r11872 131 131 vb (:,:,1) = ssv_m(:,:) 132 132 133 IF( ln_ctl .OR. sn_cfctl%l_mppout) 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/fix_sn_cfctl_ticket2328/src/SAS/stpctl.F90
r10603 r11872 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.