Changeset 9198 for branches/2017/dev_merge_2017/NEMOGCM/NEMO

Timestamp:

2018-01-09T14:29:30+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: domzgr.F90: bug correction of closed sea when ln_read_cfg=F

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -95 +95 @@
             &              e3w_0   , e3uw_0  , e3vw_0           ,   &    ! vertical scale factors
             &              k_top   , k_bot            )                  ! 1st & last ocean level
+            !
+         ! 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 )
          !
       ELSE                          !==  User defined configuration  ==!
@@ -115 +119 @@
          gde3w_0(:,:,jk) = gde3w_0(:,:,jk-1) + e3w_0(:,:,jk)
       END DO
-      !
-      ! 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(lwp) THEN                     ! Control print