Changeset 14931 for utils/tools/DOMAINcfg/src/domain.F90

Timestamp:

2021-05-31T16:36:45+02:00 (3 years ago)

Author:

jchanut

Message:

#2638: restores Pierre's changes done in #2588 at r14199

File:

• utils/tools/DOMAINcfg/src/domain.F90 (modified) (1 diff)

utils/tools/DOMAINcfg/src/domain.F90

@@ -78 +78 @@
       CALL dom_glo                     ! global domain versus local domain
       CALL dom_nam               ! read namelist ( namrun, namdom )
-                  !   CALL dom_clo               ! Closed seas and lake
          
       CALL dom_hgr               ! Horizontal mesh
       CALL dom_zgr( ik_top, ik_bot )  ! Vertical mesh and bathymetry
       CALL dom_msk( ik_top, ik_bot )  ! Masks
-      !
+      IF ( ln_domclo ) CALL dom_clo               ! Closed seas and lake 
       !
       CALL dom_ctl                  ! print extrema of masked scale factors