Changeset 9600 for NEMO/trunk/src/OCE/DOM

Timestamp:

2018-05-16T09:39:44+02:00 (6 years ago)

Author:

jamesharle

Message:

Correction for missing code handling bdytmask (see ticket #2084)

File:

• NEMO/trunk/src/OCE/DOM/dommsk.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/DOM/dommsk.F90

@@ -29 +29 @@
    !
    USE in_out_manager ! I/O manager
+   USE iom            ! IOM library
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp        ! Massively Parallel Processing library
@@ -155 +156 @@
       ! ------------------------
       IF ( ln_bdy .AND. ln_mask_file ) THEN
+         CALL iom_open( cn_mask_file, inum )
+         CALL iom_get ( inum, jpdom_data, 'bdy_msk', bdytmask(:,:) )
+         CALL iom_close( inum )
          DO jk = 1, jpkm1
             DO jj = 1, jpj