Changeset 12841 for NEMO/releases/r4.0/r4.0-HEAD/src/OFF

Timestamp:

2020-05-01T12:52:40+02:00 (4 years ago)

Author:

cetlod

Message:

r4.0-HEAD : bugfix on BDY & TOP, see ticket #2389

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OFF/nemogcm.F90 (modified) (4 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OFF/nemogcm.F90

@@ -27 +27 @@
    USE usrdef_nam     ! user defined configuration
    USE eosbn2         ! equation of state            (eos bn2 routine)
-   !              ! ocean physics
+   !                  ! ocean physics
+   USE bdy_oce,  ONLY : ln_bdy
+   USE bdyini         ! open boundary cond. setting       (bdy_init routine)
    USE ldftra         ! lateral diffusivity setting    (ldf_tra_init routine)
    USE ldfslp         ! slopes of neutral surfaces     (ldf_slp_init routine)
@@ -312 +314 @@
 
                            CALL     sbc_init    ! Forcings : surface module
+                           CALL     bdy_init    ! Open boundaries initialisation                          
 
       !                                      ! Tracer physics
@@ -476 +479 @@
       USE zdf_oce,   ONLY : zdf_oce_alloc
       USE trc_oce,   ONLY : trc_oce_alloc
+      USE bdy_oce,   ONLY : bdy_oce_alloc
       !
       INTEGER :: ierr
@@ -485 +489 @@
       ierr = ierr + zdf_oce_alloc()          ! ocean vertical physics
       ierr = ierr + trc_oce_alloc()          ! shared TRC / TRA arrays
+      ierr = ierr + bdy_oce_alloc()    ! bdy masks (incl. initialization)
+      
       !
       CALL mpp_sum( 'nemogcm', ierr )