Changeset 11207 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/domzgr.F90

Timestamp:

2019-07-02T19:32:41+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-03_closea: closea correction change to match new closea mask in domain_cfg (ticket #2143)

Location:

NEMO/branches/2019/ENHANCE-03_closea

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/DOM/domzgr.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/domzgr.F90

@@ -118 +118 @@
       ! Any closed seas (defined by closea_mask > 0 in domain_cfg file) to be filled 
       ! in at runtime if ln_closea=.false.
-      IF( .NOT.ln_closea )   CALL clo_bat( k_top, k_bot )
+      IF( ln_closea ) THEN
+         IF ( ln_maskcs ) THEN
+            ! mask all the closed sea
+            CALL clo_bat( k_top, k_bot, mask_opnsea, 'mask_opensea' )
+         ELSE IF ( ln_mask_csundef ) THEN
+            ! defined closed sea are kept
+            ! mask all the undefined closed sea
+            CALL clo_bat( k_top, k_bot, mask_csundef, 'mask_csundef' )
+         END IF
+      END IF
       !
       IF(lwp) THEN                     ! Control print