- Timestamp:
- 2019-11-07T17:55:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OFF/nemogcm.F90
r11869 r11872 162 162 INTEGER :: ios, ilocal_comm ! local integers 163 163 !! 164 NAMELIST/namctl/ ln_ctl , sn_cfctl, nn_print, nn_ictls, nn_ictle,&164 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 165 165 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 166 166 & ln_timing, ln_diacfl … … 199 199 ! 200 200 ! !--------------------! 201 ! ! Open listing units ! -> need ln_ctl from namctl to define lwp201 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp 202 202 ! !--------------------! 203 203 ! … … 210 210 ! 211 211 ! finalize the definition of namctl variables 212 IF( sn_cfctl%l_config ) THEN 212 IF( sn_cfctl%l_allon ) THEN 213 ! Turn on all options. 214 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 215 ! Ensure all processors are active 216 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 217 ELSEIF( sn_cfctl%l_config ) THEN 213 218 ! Activate finer control of report outputs 214 219 ! optionally switch off output from selected areas (note this only … … 218 223 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 219 224 ELSE 220 ! Use ln_ctl to turn on oroff all options.221 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )222 ENDIF 223 ! 224 lwp = (narea == 1) .OR. ln_ctl .OR.sn_cfctl%l_oceout ! control of all listing output print225 ! turn off all options. 226 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 227 ENDIF 228 ! 229 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 225 230 ! 226 231 IF(lwp) THEN ! open listing units … … 299 304 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 300 305 CALL dom_init("OPA") ! Domain 301 IF( ln_ctl .OR. sn_cfctl%l_mppout) &306 IF( sn_cfctl%l_prtctl ) & 302 307 & CALL prt_ctl_init ! Print control 303 308 … … 339 344 !! ** Purpose : control print setting 340 345 !! 341 !! ** Method : - print namctl information and check some consistencies346 !! ** Method : - print namctl and namcfg information and check some consistencies 342 347 !!---------------------------------------------------------------------- 343 348 ! … … 347 352 WRITE(numout,*) '~~~~~~~~' 348 353 WRITE(numout,*) ' Namelist namctl' 349 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 354 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 355 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 350 356 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 351 357 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 353 359 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 354 360 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 355 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 356 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 361 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 362 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 363 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 357 364 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 358 365 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 392 399 ! ! Parameter control 393 400 ! 394 IF( ln_ctl .OR. sn_cfctl%l_mppout ) THEN! sub-domain area indices for the control prints401 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 395 402 IF( lk_mpp .AND. jpnij > 1 ) THEN 396 403 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 507 514 sn_cfctl%l_oceout = setto 508 515 sn_cfctl%l_layout = setto 509 sn_cfctl%l_ mppout= setto510 sn_cfctl%l_ mpptop= setto516 sn_cfctl%l_prtctl = setto 517 sn_cfctl%l_prttrc = setto 511 518 sn_cfctl%l_oasout = setto 512 519 END SUBROUTINE nemo_set_cfctl
Note: See TracChangeset
for help on using the changeset viewer.