Changeset 10745 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2019-03-12T17:14:33+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r10149 r10745 248 248 CHARACTER(len=80), DIMENSION(16) :: cltxt 249 249 ! 250 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, &250 NAMELIST/namctl/ ln_ctl ,sn_cfctl, nn_print, nn_ictls, nn_ictle, & 251 251 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 252 252 & nn_bench, nn_timing … … 326 326 #endif 327 327 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 328 329 IF( sn_cfctl%l_config ) THEN 330 ! Activate finer control of report outputs 331 ! optionally switch off output from selected areas (note this only 332 ! applies to output which does not involve global communications) 333 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 334 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 335 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 336 ELSE 337 ! Use ln_ctl to turn on or off all options. 338 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 339 ENDIF 328 340 329 341 lwm = (narea == 1) ! control of output namelists … … 520 532 WRITE(numout,*) ' Namelist namctl' 521 533 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 534 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 535 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 536 WRITE(numout,*) ' sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat 537 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 538 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 539 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 540 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 541 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 542 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax 543 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 544 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 522 545 WRITE(numout,*) ' level of print nn_print = ', nn_print 523 546 WRITE(numout,*) ' Start i indice for SUM control nn_ictls = ', nn_ictls … … 691 714 END SUBROUTINE nemo_alloc 692 715 716 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto, for_all ) 717 !!---------------------------------------------------------------------- 718 !! *** ROUTINE nemo_set_cfctl *** 719 !! 720 !! ** Purpose : Set elements of the output control structure to setto. 721 !! for_all should be .false. unless all areas are to be 722 !! treated identically. 723 !! 724 !! ** Method : Note this routine can be used to switch on/off some 725 !! types of output for selected areas but any output types 726 !! that involve global communications (e.g. mpp_max, glob_sum) 727 !! should be protected from selective switching by the 728 !! for_all argument 729 !!---------------------------------------------------------------------- 730 LOGICAL :: setto, for_all 731 TYPE(sn_ctl) :: sn_cfctl 732 !!---------------------------------------------------------------------- 733 IF( for_all ) THEN 734 sn_cfctl%l_runstat = setto 735 sn_cfctl%l_trcstat = setto 736 ENDIF 737 sn_cfctl%l_oceout = setto 738 sn_cfctl%l_layout = setto 739 sn_cfctl%l_mppout = setto 740 sn_cfctl%l_mpptop = setto 741 END SUBROUTINE nemo_set_cfctl 693 742 694 743 SUBROUTINE nemo_partition( num_pes )
Note: See TracChangeset
for help on using the changeset viewer.