Changeset 13304 for NEMO/branches/UKMO

Timestamp:

2020-07-14T15:38:33+02:00 (4 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.2_GO8_package : minor update to dommsk.F90 (see GMED ticket 553).

File:

• NEMO/branches/UKMO/NEMO_4.0.2_GO8_package/src/OCE/DOM/dommsk.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.2_GO8_package/src/OCE/DOM/dommsk.F90

@@ -313 +313 @@
       
       ! User defined alteration of fmask (use to reduce ocean transport in specified straits)
+      ! Only call if we are not using the shlat2d option.
       ! -------------------------------- 
       !
-      CALL usr_def_fmask( cn_cfg, nn_cfg, fmask )
+      IF ( .not. ln_shlat2d ) THEN      
+         CALL usr_def_fmask( cn_cfg, nn_cfg, fmask )
+      ENDIF
       !
    END SUBROUTINE dom_msk