Changeset 8992 for branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domwri.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/domwri.F90 (modified) (2 diffs)

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

@@ -18 +18 @@
    USE dom_oce         ! ocean space and time domain
    USE phycst ,   ONLY :   rsmall
-   USE wet_dry,   ONLY :   ln_wd, ht_wd
+   USE wet_dry,   ONLY :   ll_wd  ! Wetting and drying
    !
    USE in_out_manager  ! I/O manager
@@ -198 +198 @@
       ENDIF
       !
-      IF( ln_wd ) THEN                                          ! wetting and drying domain
-         CALL iom_rstput( 0, 0, inum, 'ht_0'   , ht_0   , ktype = jp_r8 )
-         CALL iom_rstput( 0, 0, inum, 'ht_wd'  , ht_wd  , ktype = jp_r8 )
-      ENDIF
+      IF( ll_wd ) CALL iom_rstput( 0, 0, inum, 'ht_0'   , ht_0   , ktype = jp_r8 )
+
       !                                     ! ============================
       CALL iom_close( inum )                !        close the files