Ignore:
Timestamp:
2019-12-13T10:19:48+01:00 (21 months ago)
Author:
acc
Message:

Branch 2019/dev_r11943_MERGE_2019. Merge in changes from 2019/fix_sn_cfctl_ticket2328. Fully SETTE tested

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11943_MERGE_2019/src/OFF/nemogcm.F90

    r11960 r12236  
    175175      INTEGER ::   ios, ilocal_comm   ! local integers 
    176176      !! 
    177       NAMELIST/namctl/ ln_ctl   , sn_cfctl, nn_print, nn_ictls, nn_ictle,   & 
     177      NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle,              & 
    178178         &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    179179         &             ln_timing, ln_diacfl 
     
    212212      ! 
    213213      !                             !--------------------! 
    214       !                             ! Open listing units !  -> need ln_ctl from namctl to define lwp 
     214      !                             ! Open listing units !  -> need sn_cfctl from namctl to define lwp 
    215215      !                             !--------------------! 
    216216      ! 
     
    220220902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 
    221221      ! 
    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 
    223241      ! 
    224242      IF(lwp) THEN                            ! open listing units 
     
    252270      ENDIF 
    253271      ! 
    254       ! finalize the definition of namctl variables 
    255       IF( sn_cfctl%l_config ) THEN 
    256          ! Activate finer control of report outputs 
    257          ! optionally switch off output from selected areas (note this only 
    258          ! 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       ELSE 
    263          ! Use ln_ctl to turn on or off all options. 
    264          CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. ) 
    265       ENDIF 
    266       ! 
    267272      IF(lwm) WRITE( numond, namctl ) 
    268273      ! 
     
    312317      IF( lk_c1d       )   CALL     c1d_init        ! 1D column configuration 
    313318                           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 
    315321 
    316322                           CALL  istate_init( Nnn, Naa )    ! ocean initial state (Dynamics and tracers) 
     
    351357      !! ** Purpose :   control print setting 
    352358      !! 
    353       !! ** Method  : - print namctl information and check some consistencies 
     359      !! ** Method  : - print namctl and namcfg information and check some consistencies 
    354360      !!---------------------------------------------------------------------- 
    355361      ! 
     
    359365         WRITE(numout,*) '~~~~~~~~' 
    360366         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 
    362369         WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    363370         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
     
    365372         WRITE(numout,*) '                              sn_cfctl%l_oceout  = ', sn_cfctl%l_oceout 
    366373         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 
    369377         WRITE(numout,*) '                              sn_cfctl%procmin   = ', sn_cfctl%procmin   
    370378         WRITE(numout,*) '                              sn_cfctl%procmax   = ', sn_cfctl%procmax   
     
    404412      !                             ! Parameter control 
    405413      ! 
    406       IF( ln_ctl ) THEN                 ! sub-domain area indices for the control prints 
     414      IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    407415         IF( lk_mpp .AND. jpnij > 1 ) THEN 
    408416            isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
     
    516524      sn_cfctl%l_oceout  = setto 
    517525      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 
    520529   END SUBROUTINE nemo_set_cfctl 
    521530 
Note: See TracChangeset for help on using the changeset viewer.