Changeset 13286 for NEMO/trunk/src/SAS


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

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

Location:
NEMO/trunk
Files:
3 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/SAS/nemogcm.F90

    r13216 r13286  
    3535   USE step_diu       ! diurnal bulk SST timestepping (called from here if run offline) 
    3636   ! 
     37   USE prtctl         ! Print control 
    3738   USE in_out_manager ! I/O manager 
    3839   USE lib_mpp        ! distributed memory computing 
    3940   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    40    USE lbcnfd  , ONLY : isendto, nsndto, nfsloop, nfeloop  ! Setup of north fold exchanges 
     41   USE lbcnfd  , ONLY : isendto, nsndto ! Setup of north fold exchanges 
    4142   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    4243#if defined key_iomput 
     
    4647   USE agrif_ice_update ! ice update 
    4748#endif 
     49   USE halo_mng 
    4850 
    4951   IMPLICIT NONE 
     
    197199      INTEGER ::   ios, ilocal_comm   ! local integers 
    198200      !! 
    199       NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle,              & 
    200          &             nn_isplt , nn_jsplt, nn_jctls, nn_jctle,             & 
    201          &             ln_timing, ln_diacfl 
     201      NAMELIST/namctl/ sn_cfctl, ln_timing, ln_diacfl,                                & 
     202         &             nn_isplt,  nn_jsplt,  nn_ictls, nn_ictle, nn_jctls, nn_jctle             
    202203      NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_closea, ln_write_cfg, cn_domcfg_out, ln_use_jattr 
    203204      !!---------------------------------------------------------------------- 
     
    206207      ELSE                  ;   cxios_context = 'nemo' 
    207208      ENDIF 
     209      nn_hls = 1 
    208210      ! 
    209211      !                             !-------------------------------------------------! 
     
    324326      ! 
    325327      IF( ln_read_cfg ) THEN            ! Read sizes in domain configuration file 
    326          CALL domain_cfg ( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 
     328         CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    327329      ELSE                              ! user-defined namelist 
    328          CALL usr_def_nam( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio ) 
     330         CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 
    329331      ENDIF 
    330332      ! 
     
    336338      CALL mpp_init 
    337339 
     340      CALL halo_mng_init() 
    338341      ! Now we know the dimensions of the grid and numout has been set: we can allocate arrays 
    339342      CALL nemo_alloc() 
     
    409412         WRITE(numout,*) '                              sn_cfctl%procincr  = ', sn_cfctl%procincr  
    410413         WRITE(numout,*) '                              sn_cfctl%ptimincr  = ', sn_cfctl%ptimincr  
    411          WRITE(numout,*) '      level of print                  nn_print   = ', nn_print 
    412          WRITE(numout,*) '      Start i indice for SUM control  nn_ictls   = ', nn_ictls 
    413          WRITE(numout,*) '      End i indice for SUM control    nn_ictle   = ', nn_ictle 
    414          WRITE(numout,*) '      Start j indice for SUM control  nn_jctls   = ', nn_jctls 
    415          WRITE(numout,*) '      End j indice for SUM control    nn_jctle   = ', nn_jctle 
    416          WRITE(numout,*) '      number of proc. following i     nn_isplt   = ', nn_isplt 
    417          WRITE(numout,*) '      number of proc. following j     nn_jsplt   = ', nn_jsplt 
    418414         WRITE(numout,*) '      timing by routine               ln_timing  = ', ln_timing 
    419415         WRITE(numout,*) '      CFL diagnostics                 ln_diacfl  = ', ln_diacfl 
    420416      ENDIF 
    421417      ! 
    422       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    423       nictls    = nn_ictls 
    424       nictle    = nn_ictle 
    425       njctls    = nn_jctls 
    426       njctle    = nn_jctle 
    427       isplt     = nn_isplt 
    428       jsplt     = nn_jsplt 
    429  
     418      IF( .NOT.ln_read_cfg )   ln_closea = .FALSE.   ! dealing possible only with a domcfg file 
    430419      IF(lwp) THEN                  ! control print 
    431420         WRITE(numout,*) 
     
    438427         WRITE(numout,*) '      use file attribute if exists as i/p j-start   ln_use_jattr     = ', ln_use_jattr 
    439428      ENDIF 
    440       IF( .NOT.ln_read_cfg )   ln_closea = .false.   ! dealing possible only with a domcfg file 
    441       ! 
    442       !                             ! Parameter control 
    443       ! 
    444       IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN              ! sub-domain area indices for the control prints 
    445          IF( lk_mpp .AND. jpnij > 1 ) THEN 
    446             isplt = jpni   ;   jsplt = jpnj   ;   ijsplt = jpni*jpnj   ! the domain is forced to the real split domain 
    447          ELSE 
    448             IF( isplt == 1 .AND. jsplt == 1  ) THEN 
    449                CALL ctl_warn( ' - isplt & jsplt are equal to 1',   & 
    450                   &           ' - the print control will be done over the whole domain' ) 
    451             ENDIF 
    452             ijsplt = isplt * jsplt            ! total number of processors ijsplt 
    453          ENDIF 
    454          IF(lwp) WRITE(numout,*)'          - The total number of processors over which the' 
    455          IF(lwp) WRITE(numout,*)'            print control will be done is ijsplt : ', ijsplt 
    456          ! 
    457          !                              ! indices used for the SUM control 
    458          IF( nictls+nictle+njctls+njctle == 0 )   THEN    ! print control done over the default area 
    459             lsp_area = .FALSE. 
    460          ELSE                                             ! print control done over a specific  area 
    461             lsp_area = .TRUE. 
    462             IF( nictls < 1 .OR. nictls > jpiglo )   THEN 
    463                CALL ctl_warn( '          - nictls must be 1<=nictls>=jpiglo, it is forced to 1' ) 
    464                nictls = 1 
    465             ENDIF 
    466             IF( nictle < 1 .OR. nictle > jpiglo )   THEN 
    467                CALL ctl_warn( '          - nictle must be 1<=nictle>=jpiglo, it is forced to jpiglo' ) 
    468                nictle = jpiglo 
    469             ENDIF 
    470             IF( njctls < 1 .OR. njctls > jpjglo )   THEN 
    471                CALL ctl_warn( '          - njctls must be 1<=njctls>=jpjglo, it is forced to 1' ) 
    472                njctls = 1 
    473             ENDIF 
    474             IF( njctle < 1 .OR. njctle > jpjglo )   THEN 
    475                CALL ctl_warn( '          - njctle must be 1<=njctle>=jpjglo, it is forced to jpjglo' ) 
    476                njctle = jpjglo 
    477             ENDIF 
    478          ENDIF 
    479       ENDIF 
    480429      ! 
    481430      IF( 1._wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.',  & 
  • NEMO/trunk/src/SAS/sbcssm.F90

    r12615 r13286  
    290290            !                                         ! fill sf with slf_i and control print 
    291291            CALL fld_fill( sf_ssm_3d, slf_3d, cn_dir, 'sbc_ssm_init', '3D Data in file', 'namsbc_ssm' ) 
     292            sf_ssm_3d(jf_usp)%cltype = 'U'   ;   sf_ssm_3d(jf_usp)%zsgn = -1._wp 
     293            sf_ssm_3d(jf_vsp)%cltype = 'V'   ;   sf_ssm_3d(jf_vsp)%zsgn = -1._wp 
    292294         ENDIF 
    293295         ! 
     
    306308            ! 
    307309            CALL fld_fill( sf_ssm_2d, slf_2d, cn_dir, 'sbc_ssm_init', '2D Data in file', 'namsbc_ssm' ) 
     310            IF( .NOT. ln_3d_uve ) THEN 
     311               sf_ssm_2d(jf_usp)%cltype = 'U'   ;   sf_ssm_2d(jf_usp)%zsgn = -1._wp 
     312               sf_ssm_2d(jf_vsp)%cltype = 'V'   ;   sf_ssm_2d(jf_vsp)%zsgn = -1._wp 
     313            ENDIF 
    308314         ENDIF 
    309315         ! 
Note: See TracChangeset for help on using the changeset viewer.