Changeset 9161 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2017-12-22T11:31:53+01:00 (6 years ago)

Author:

davestorkey

Message:

Reformulation of closea module.
See ticket #2000
https://forge.ipsl.jussieu.fr/nemo/wiki/2017WP/ROBUST-14_Dave_Storkey-Closed_Seas_rewrite

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

@@ -29 +29 @@
    USE dom_oce        ! ocean domain
    USE usrdef_zgr     ! user defined vertical coordinate system
+   USE closea         ! closed seas
    USE depth_e3       ! depth <=> e3
    USE wet_dry,   ONLY: ll_wd, ssh_ref  ! Wetting and drying
@@ -114 +115 @@
          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