Changeset 8992 for branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2017-12-12T16:38:41+01:00 (7 years ago)

Author:

timgraham

Message:

Merged Met Office branch in

File:

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

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

@@ -30 +30 @@
    USE usrdef_zgr     ! user defined vertical coordinate system
    USE depth_e3       ! depth <=> e3
-   USE wet_dry, ONLY: ln_wd, ht_wd
+   USE wet_dry,   ONLY: ll_wd, ssh_ref  ! Wetting and drying
    !
    USE in_out_manager ! I/O manager
@@ -258 +258 @@
       k_bot(:,:) = INT( z2d(:,:) )
       !
-      ! bathymetry with orography (wetting and drying only)
-      IF( ln_wd )  CALL iom_get( inum, jpdom_data, 'ht_wd' , ht_wd  , lrowattr=ln_use_jattr )
+      ! reference depth for negative bathy (wetting and drying only)
+      IF( ll_wd )  CALL iom_get( inum,  'rn_wd_ref_depth' , ssh_ref   )
       !
       CALL iom_close( inum )