Changeset 12079 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/DOM/domzgr.F90

Timestamp:

2019-12-05T19:47:50+01:00 (4 years ago)

Author:

mathiot

Message:

include ENHANCE-03_closea in UKMO merge branch

File:

• NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/DOM/domzgr.F90 (modified) (1 diff)

NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/DOM/domzgr.F90

@@ -119 +119 @@
       ! 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_msk( 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_msk( k_top, k_bot, mask_csundef, 'mask_csundef' )
+         END IF
+      END IF
       !
       IF(lwp) THEN                     ! Control print