Changeset 8992 for branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.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/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90 (modified) (1 diff)

branches/2017/dev_METO_MERCATOR_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90

@@ -674 +674 @@
       ENDIF
       !
-      IF( ln_wd ) THEN              ! wetting and drying domain
+      IF( ll_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
       !