- Timestamp:
- 2017-12-13T19:01:03+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/domain.F90
r7616 r9024 674 674 ENDIF 675 675 ! 676 IF( l n_wd ) THEN ! wetting and drying domain676 IF( ll_wd ) 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.