- Timestamp:
- 2019-12-13T10:19:48+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OFF/nemogcm.F90
r11960 r12236 175 175 INTEGER :: ios, ilocal_comm ! local integers 176 176 !! 177 NAMELIST/namctl/ ln_ctl , sn_cfctl, nn_print, nn_ictls, nn_ictle,&177 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 178 178 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 179 179 & ln_timing, ln_diacfl … … 212 212 ! 213 213 ! !--------------------! 214 ! ! Open listing units ! -> need ln_ctl from namctl to define lwp214 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp 215 215 ! !--------------------! 216 216 ! … … 220 220 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 221 221 ! 222 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 222 ! finalize the definition of namctl variables 223 IF( sn_cfctl%l_allon ) THEN 224 ! Turn on all options. 225 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 226 ! Ensure all processors are active 227 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 228 ELSEIF( sn_cfctl%l_config ) THEN 229 ! Activate finer control of report outputs 230 ! optionally switch off output from selected areas (note this only 231 ! applies to output which does not involve global communications) 232 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 233 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 234 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 235 ELSE 236 ! turn off all options. 237 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 238 ENDIF 239 ! 240 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 223 241 ! 224 242 IF(lwp) THEN ! open listing units … … 252 270 ENDIF 253 271 ! 254 ! finalize the definition of namctl variables255 IF( sn_cfctl%l_config ) THEN256 ! Activate finer control of report outputs257 ! optionally switch off output from selected areas (note this only258 ! applies to output which does not involve global communications)259 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. &260 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) &261 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. )262 ELSE263 ! Use ln_ctl to turn on or off all options.264 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )265 ENDIF266 !267 272 IF(lwm) WRITE( numond, namctl ) 268 273 ! … … 312 317 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 313 318 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 314 IF( ln_ctl ) CALL prt_ctl_init ! Print control 319 IF( sn_cfctl%l_prtctl ) & 320 & CALL prt_ctl_init ! Print control 315 321 316 322 CALL istate_init( Nnn, Naa ) ! ocean initial state (Dynamics and tracers) … … 351 357 !! ** Purpose : control print setting 352 358 !! 353 !! ** Method : - print namctl information and check some consistencies359 !! ** Method : - print namctl and namcfg information and check some consistencies 354 360 !!---------------------------------------------------------------------- 355 361 ! … … 359 365 WRITE(numout,*) '~~~~~~~~' 360 366 WRITE(numout,*) ' Namelist namctl' 361 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 367 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 368 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 362 369 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 363 370 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 365 372 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 366 373 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 367 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 368 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 374 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 375 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 376 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 369 377 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 370 378 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 404 412 ! ! Parameter control 405 413 ! 406 IF( ln_ctl ) THEN! sub-domain area indices for the control prints414 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 407 415 IF( lk_mpp .AND. jpnij > 1 ) THEN 408 416 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 516 524 sn_cfctl%l_oceout = setto 517 525 sn_cfctl%l_layout = setto 518 sn_cfctl%l_mppout = setto 519 sn_cfctl%l_mpptop = setto 526 sn_cfctl%l_prtctl = setto 527 sn_cfctl%l_prttrc = setto 528 sn_cfctl%l_oasout = setto 520 529 END SUBROUTINE nemo_set_cfctl 521 530
Note: See TracChangeset
for help on using the changeset viewer.