Changeset 14931 for utils/tools/DOMAINcfg/src/dommsk.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/dommsk.F90 (modified) (2 diffs)

utils/tools/DOMAINcfg/src/dommsk.F90

@@ -156 +156 @@
             END DO  
          END DO  
-         ELSE
+      ELSE
          DO jk = 1, jpk
             DO jj = 1, jpj
@@ -293 +293 @@
       ! User defined alteration of fmask (use to reduce ocean transport in specified straits)
       ! -------------------------------- 
-      !
-
+      ! write mesh mask 
+      IF ( nn_msh > 0 ) CALL dom_wri 
+      !
       CALL usr_def_fmask( cp_cfg, jp_cfg, fmask )
       !