- Timestamp:
- 2017-12-01T05:41:32+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7822 r8865 674 674 ENDIF 675 675 ! 676 IF( ln_wd ) THEN ! wetting and drying domain676 IF( ln_wd .or. ln_rwd ) THEN ! wetting and drying domain 677 677 CALL iom_rstput( 0, 0, inum, 'ht_0' , ht_0 , ktype = jp_r8 ) 678 CALL iom_rstput( 0, 0, inum, 'ht_wd' , ht_wd , ktype = jp_r8 )679 678 ENDIF 680 679 !
Note: See TracChangeset
for help on using the changeset viewer.