Changeset 12843


Ignore:
Timestamp:
2020-05-01T12:54:03+02:00 (7 months ago)
Author:
cetlod
Message:

trunk : bugfix on BDY & OFF, see ticket #2389

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OFF/nemogcm.F90

    r12641 r12843  
    2828   USE usrdef_nam     ! user defined configuration 
    2929   USE eosbn2         ! equation of state            (eos bn2 routine) 
     30   USE bdy_oce,  ONLY : ln_bdy 
     31   USE bdyini         ! open boundary cond. setting       (bdy_init routine) 
    3032   !              ! ocean physics 
    3133   USE ldftra         ! lateral diffusivity setting    (ldf_tra_init routine) 
     
    307309      ! Initialise time level indices 
    308310      Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 
    309     
    310311 
    311312      !                             !-------------------------------! 
     
    329330 
    330331                           CALL     sbc_init( Nbb, Nnn, Naa )    ! Forcings : surface module 
     332                           CALL     bdy_init    ! Open boundaries initialisation     
    331333 
    332334      !                                      ! Tracer physics 
     
    492494      USE zdf_oce,   ONLY : zdf_oce_alloc 
    493495      USE trc_oce,   ONLY : trc_oce_alloc 
     496      USE bdy_oce,   ONLY : bdy_oce_alloc 
    494497      ! 
    495498      INTEGER :: ierr 
     
    501504      ierr = ierr + zdf_oce_alloc()          ! ocean vertical physics 
    502505      ierr = ierr + trc_oce_alloc()          ! shared TRC / TRA arrays 
     506      ierr = ierr + bdy_oce_alloc()    ! bdy masks (incl. initialization)       
    503507      ! 
    504508      CALL mpp_sum( 'nemogcm', ierr ) 
Note: See TracChangeset for help on using the changeset viewer.