Ignore:
Timestamp:
2020-07-09T17:48:29+02:00 (8 months ago)
Author:
smasson
Message:

trunk: merge extra halos branch in trunk, see #2366

Location:
NEMO/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk

    • Property svn:externals
      •  

        old new  
        22^/utils/build/makenemo@HEAD   makenemo 
        33^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools/@HEAD           tools 
         4^/utils/tools@HEAD            tools 
        55^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
         
        88 
        99# SETTE 
        10 ^/utils/CI/sette@12931        sette 
         10^/utils/CI/r12931_sette_ticket2366@HEAD  sette 
  • NEMO/trunk/src/OCE/nemogcm.F90

    r13237 r13286  
    4747   USE usrdef_nam     ! user defined configuration 
    4848   USE tide_mod, ONLY : tide_init ! tidal components initialization   (tide_init routine) 
    49    USE bdy_oce,  ONLY : ln_bdy 
    5049   USE bdyini         ! open boundary cond. setting       (bdy_init routine) 
    5150   USE istate         ! initial state setting          (istate_init routine) 
     
    8887#endif 
    8988   ! 
     89   USE prtctl         ! Print control 
    9090   USE in_out_manager ! I/O manager 
    9191   USE lib_mpp        ! distributed memory computing 
    9292   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    93    USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges  
     93   USE lbcnfd  , ONLY : isendto, nsndto  ! Setup of north fold exchanges  
    9494   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    9595#if defined key_iomput 
     
    9999   USE agrif_all_update   ! Master Agrif update 
    100100#endif 
     101   USE halo_mng 
    101102 
    102103   IMPLICIT NONE 
     
    279280      INTEGER ::   ios, ilocal_comm   ! local integers 
    280281      !! 
    281       NAMELIST/namctl/ sn_cfctl,  nn_print, nn_ictls, nn_ictle,             & 
    282          &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    283          &             ln_timing, ln_diacfl 
     282      NAMELIST/namctl/ sn_cfctl, ln_timing, ln_diacfl,                                & 
     283         &             nn_isplt,  nn_jsplt,  nn_ictls, nn_ictle, nn_jctls, nn_jctle             
    284284      NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_closea, ln_write_cfg, cn_domcfg_out, ln_use_jattr 
    285285      !!---------------------------------------------------------------------- 
     
    399399      ! 
    400400      IF( ln_read_cfg ) THEN            ! Read sizes in domain configuration file 
    401          CALL domain_cfg ( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 
     401         CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    402402      ELSE                              ! user-defined namelist 
    403          CALL usr_def_nam( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 
     403         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    404404      ENDIF 
    405405      ! 
     
    411411      CALL mpp_init 
    412412 
     413      CALL halo_mng_init() 
    413414      ! Now we know the dimensions of the grid and numout has been set: we can allocate arrays 
    414415      CALL nemo_alloc() 
     
    554555         WRITE(numout,*) '                              sn_cfctl%procincr  = ', sn_cfctl%procincr  
    555556         WRITE(numout,*) '                              sn_cfctl%ptimincr  = ', sn_cfctl%ptimincr  
    556          WRITE(numout,*) '      level of print                  nn_print   = ', nn_print 
    557          WRITE(numout,*) '      Start i indice for SUM control  nn_ictls   = ', nn_ictls 
    558          WRITE(numout,*) '      End i indice for SUM control    nn_ictle   = ', nn_ictle 
    559          WRITE(numout,*) '      Start j indice for SUM control  nn_jctls   = ', nn_jctls 
    560          WRITE(numout,*) '      End j indice for SUM control    nn_jctle   = ', nn_jctle 
    561          WRITE(numout,*) '      number of proc. following i     nn_isplt   = ', nn_isplt 
    562          WRITE(numout,*) '      number of proc. following j     nn_jsplt   = ', nn_jsplt 
    563557         WRITE(numout,*) '      timing by routine               ln_timing  = ', ln_timing 
    564558         WRITE(numout,*) '      CFL diagnostics                 ln_diacfl  = ', ln_diacfl 
    565559      ENDIF 
    566560      ! 
    567       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    568       nictls    = nn_ictls 
    569       nictle    = nn_ictle 
    570       njctls    = nn_jctls 
    571       njctle    = nn_jctle 
    572       isplt     = nn_isplt 
    573       jsplt     = nn_jsplt 
    574  
     561      IF( .NOT.ln_read_cfg )   ln_closea = .false.   ! dealing possible only with a domcfg file 
    575562      IF(lwp) THEN                  ! control print 
    576563         WRITE(numout,*) 
     
    583570         WRITE(numout,*) '      use file attribute if exists as i/p j-start   ln_use_jattr     = ', ln_use_jattr 
    584571      ENDIF 
    585       IF( .NOT.ln_read_cfg )   ln_closea = .false.   ! dealing possible only with a domcfg file 
    586       ! 
    587       !                             ! Parameter control 
    588       ! 
    589       IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    590          IF( lk_mpp .AND. jpnij > 1 ) THEN 
    591             isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    592          ELSE 
    593             IF( isplt == 1 .AND. jsplt == 1  ) THEN 
    594                CALL ctl_warn( ' - isplt & jsplt are equal to 1',   & 
    595                   &           ' - the print control will be done over the whole domain' ) 
    596             ENDIF 
    597             ijsplt = isplt * jsplt            ! total number of processors ijsplt 
    598          ENDIF 
    599          IF(lwp) WRITE(numout,*)'          - The total number of processors over which the' 
    600          IF(lwp) WRITE(numout,*)'            print control will be done is ijsplt : ', ijsplt 
    601          ! 
    602          !                              ! indices used for the SUM control 
    603          IF( nictls+nictle+njctls+njctle == 0 )   THEN    ! print control done over the default area 
    604             lsp_area = .FALSE. 
    605          ELSE                                             ! print control done over a specific  area 
    606             lsp_area = .TRUE. 
    607             IF( nictls < 1 .OR. nictls > jpiglo )   THEN 
    608                CALL ctl_warn( '          - nictls must be 1<=nictls>=jpiglo, it is forced to 1' ) 
    609                nictls = 1 
    610             ENDIF 
    611             IF( nictle < 1 .OR. nictle > jpiglo )   THEN 
    612                CALL ctl_warn( '          - nictle must be 1<=nictle>=jpiglo, it is forced to jpiglo' ) 
    613                nictle = jpiglo 
    614             ENDIF 
    615             IF( njctls < 1 .OR. njctls > jpjglo )   THEN 
    616                CALL ctl_warn( '          - njctls must be 1<=njctls>=jpjglo, it is forced to 1' ) 
    617                njctls = 1 
    618             ENDIF 
    619             IF( njctle < 1 .OR. njctle > jpjglo )   THEN 
    620                CALL ctl_warn( '          - njctle must be 1<=njctle>=jpjglo, it is forced to jpjglo' ) 
    621                njctle = jpjglo 
    622             ENDIF 
    623          ENDIF 
    624       ENDIF 
    625572      ! 
    626573      IF( 1._wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.',  & 
Note: See TracChangeset for help on using the changeset viewer.