New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12939 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAO – NEMO

Ignore:
Timestamp:
2020-05-15T19:41:01+02:00 (4 years ago)
Author:
smasson
Message:

Extra_Halo: update with trunk@12933, see #2366

Location:
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@HEAD         sette 
         10^/utils/CI/sette@12931        sette 

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAO/nemogcm.F90

    r12586 r12939  
    2929   USE sao_intp 
    3030   ! 
     31   USE in_out_manager ! I/O manager 
    3132   USE lib_mpp        ! distributed memory computing 
    3233   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    … …  
    141142      IF( lwm )   CALL ctl_opn(     numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    142143      ! open /dev/null file to be able to supress output write easily 
     144      IF( Agrif_Root() ) THEN 
    143145                  CALL ctl_opn(     numnul,           '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     146#ifdef key_agrif 
     147      ELSE 
     148                  numnul = Agrif_Parent(numnul)    
     149#endif 
     150      ENDIF 
    144151      ! 
    145152      !                             !--------------------! 
    … …  
    153160      ! 
    154161      ! finalize the definition of namctl variables 
    155       IF( sn_cfctl%l_allon ) THEN 
    156          ! Turn on all options. 
    157          CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 
    158          ! Ensure all processors are active 
    159          sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 
    160       ELSEIF( sn_cfctl%l_config ) THEN 
    161          ! Activate finer control of report outputs 
    162          ! optionally switch off output from selected areas (note this only 
    163          ! applies to output which does not involve global communications) 
    164          IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax  ) .OR. & 
    165            & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) )    & 
    166            &   CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 
    167       ELSE 
    168          ! turn off all options. 
    169          CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 
    170       ENDIF 
     162      IF( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax .OR. MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 )   & 
     163         &   CALL nemo_set_cfctl( sn_cfctl, .FALSE. ) 
    171164      ! 
    172165      lwp = (narea == 1) .OR. sn_cfctl%l_oceout    ! control of all listing output print 
    … …  
    266259         WRITE(numout,*) '~~~~~~~~' 
    267260         WRITE(numout,*) '   Namelist namctl' 
    268          WRITE(numout,*) '                              sn_cfctl%l_glochk  = ', sn_cfctl%l_glochk 
    269          WRITE(numout,*) '                              sn_cfctl%l_allon   = ', sn_cfctl%l_allon 
    270          WRITE(numout,*) '       finer control over o/p sn_cfctl%l_config  = ', sn_cfctl%l_config 
    271261         WRITE(numout,*) '                              sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 
    272262         WRITE(numout,*) '                              sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat 
    … …  
    406396   END SUBROUTINE nemo_alloc 
    407397 
    408    SUBROUTINE nemo_set_cfctl(sn_cfctl, setto, for_all ) 
     398   SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 
    409399      !!---------------------------------------------------------------------- 
    410400      !!                     ***  ROUTINE nemo_set_cfctl  *** 
    411401      !! 
    412402      !! ** Purpose :   Set elements of the output control structure to setto. 
    413       !!                for_all should be .false. unless all areas are to be 
    414       !!                treated identically. 
    415403      !! 
    416404      !! ** Method  :   Note this routine can be used to switch on/off some 
    417       !!                types of output for selected areas but any output types 
    418       !!                that involve global communications (e.g. mpp_max, glob_sum) 
    419       !!                should be protected from selective switching by the 
    420       !!                for_all argument 
    421       !!---------------------------------------------------------------------- 
    422       LOGICAL :: setto, for_all 
    423       TYPE(sn_ctl) :: sn_cfctl 
    424       !!---------------------------------------------------------------------- 
    425       IF( for_all ) THEN 
    426          sn_cfctl%l_runstat = setto 
    427          sn_cfctl%l_trcstat = setto 
    428       ENDIF 
     405      !!                types of output for selected areas. 
     406      !!---------------------------------------------------------------------- 
     407      TYPE(sn_ctl), INTENT(inout) :: sn_cfctl 
     408      LOGICAL     , INTENT(in   ) :: setto 
     409      !!---------------------------------------------------------------------- 
     410      sn_cfctl%l_runstat = setto 
     411      sn_cfctl%l_trcstat = setto 
    429412      sn_cfctl%l_oceout  = setto 
    430413      sn_cfctl%l_layout  = setto 
Note: See TracChangeset for help on using the changeset viewer.