- Timestamp:
- 2017-12-01T10:48:12+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r8865 r8870 39 39 USE domc1d ! 1D configuration: column location 40 40 USE dyncor_c1d ! 1D configuration: Coriolis term (cor_c1d routine) 41 USE wet_dry ! wetting and drying41 USE wet_dry, ONLY : ln_wd_il, ln_wd_dl 42 42 ! 43 43 USE in_out_manager ! I/O manager … … 674 674 ENDIF 675 675 ! 676 IF( ln_wd .or. ln_rwd) THEN ! wetting and drying domain676 IF( ln_wd_il .or. ln_wd_dl ) THEN ! wetting and drying domain 677 677 CALL iom_rstput( 0, 0, inum, 'ht_0' , ht_0 , ktype = jp_r8 ) 678 678 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.