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 15548 for NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/SWE – NEMO

Ignore:
Timestamp:
2021-11-28T18:59:49+01:00 (3 years ago)
Author:
gsamson
Message:

update branch to the head of the trunk (r15547); ticket #2632

Location:
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette@14244        sette 
         11^/utils/CI/sette@HEAD        sette 
         12 

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/SWE/nemogcm.F90

    r14433 r15548  
    2222   USE bdyini         ! open boundary cond. setting       (bdy_init routine) 
    2323   USE istate         ! initial state setting          (istate_init routine) 
     24   USE wet_dry , ONLY : ln_wd_il, ln_wd_dl, ln_wd_dl_bc   ! switch off wetting and drying 
     25   USE isf_oce , ONLY : ln_isf           ! ice shelf 
    2426   USE trd_oce , ONLY : l_trddyn         ! dynamical trend logical 
     27   USE dia25h  , ONLY : ln_dia25h        ! 25h mean output 
    2528#if defined key_RK3 
    2629   USE stprk3         ! NEMO time-stepping               (stp_RK3   routine) 
    … …  
    3134   USE lib_mpp        ! distributed memory computing 
    3235   USE mppini         ! shared/distributed memory setting (mpp_init routine) 
    33    USE lbcnfd  , ONLY : isendto, nsndto  ! Setup of north fold exchanges  
    3436   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    3537   USE halo_mng       ! halo manager 
    … …  
    273275      CALL mpp_init 
    274276 
     277#if defined key_loop_fusion 
     278      IF( nn_hls == 1 ) THEN 
     279         CALL ctl_stop( 'STOP', 'nemogcm : Loop fusion can be used only with extra-halo' ) 
     280      ENDIF 
     281#endif 
     282 
    275283      CALL halo_mng_init() 
    276284      ! Now we know the dimensions of the grid and numout has been set: we can allocate arrays 
    … …  
    291299      ! 
    292300                           CALL     phy_cst         ! Physical constants 
     301                           ln_wd_il = .FALSE.   ;   ln_wd_dl = .FALSE.   ;   ln_wd_dl_bc = .FALSE.  ! No wetting and drying 
    293302      ! 
    294303      !                                             ! SWE: Set rho0 and associated variables (eosbn2 not used) 
    … …  
    311320 
    312321      !                                      ! Ocean physics                                     
     322      !                                         ! Vertical physics 
     323                           ln_zdfddm = .FALSE.   ;   ln_zad_Aimp = .FALSE.   ;   ln_zdfosm = .FALSE.   ! used in diawri 
     324                           avt(:,:,:) = 0._wp    ;   avm(:,:,:) = 0._wp                                ! used in diawri 
    313325      !                                         ! Lateral physics 
    314326                           CALL ldf_dyn_init      ! Lateral ocean momentum physics 
    … …  
    319331                           CALL dyn_ldf_init         ! lateral mixing 
    320332 
     333      !                                      ! Icebergs 
     334                           ln_icebergs = .false. 
     335      !                                      ! ice shelf 
     336                           ln_isf = .false. 
     337 
    321338      !                                      ! Diagnostics 
    322339      IF( ln_diacfl    )   CALL dia_cfl_init    ! Initialise CFL diagnostics 
    323       !                                         ! Trends diag: switched off 
    324                            l_trddyn = .FALSE.        ! No trend diagnostics 
     340 
     341                           l_trddyn  = .FALSE.  ! No trend diagnostics 
     342                           ln_dia25h = .FALSE.  ! No 25h mean diagnostics (zdf_phy not used)- used in diawri 
    325343 
    326344      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/SWE/stpmlf.F90

    r14433 r15548  
    199199      CALL lbc_lnk( 'stp_MLF', uu(:,:,:,Nnn), 'U', -1., vv(:,:,:,Nnn), 'V', -1.,   &   !* local domain boundaries 
    200200         &                     uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1.    )      
     201      IF (nn_hls==2) CALL lbc_lnk( 'stp_MLF', r3u(:,:,Naa), 'U', 1., r3v(:,:,Naa), 'V', 1.) 
    201202 
    202203      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/SWE/stprk3.F90

    r14433 r15548  
    172172      ! 
    173173      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     174      IF (nn_hls==2) CALL lbc_lnk( 'stp_RK3', r3u(:,:,Naa), 'U', 1., r3v(:,:,Naa), 'V', 1.) 
    174175      ! 
    175176      !                                 !==  Swap time levels  ==! 
    … …  
    237238      ! 
    238239      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     240      IF (nn_hls==2) CALL lbc_lnk( 'stp_RK3', r3u(:,:,Naa), 'U', 1., r3v(:,:,Naa), 'V', 1.) 
    239241      ! 
    240242      !                                 !==  Swap time levels  ==! 
    … …  
    300302      ! 
    301303      CALL lbc_lnk( 'stp_RK3', uu(:,:,:,Naa), 'U', -1., vv(:,:,:,Naa), 'V', -1. ) 
     304      IF (nn_hls==2) CALL lbc_lnk( 'stp_RK3', r3u(:,:,Naa), 'U', 1., r3v(:,:,Naa), 'V', 1.) 
    302305      ! 
    303306      !                                 !==  Swap time levels  ==! 
Note: See TracChangeset for help on using the changeset viewer.