Changeset 4355 for branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DOM
- Timestamp:
- 2014-01-17T18:55:02+01:00 (10 years ago)
- Location:
- branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r3851 r4355 54 54 REAL(wp), PUBLIC :: rdtmax !: maximum time step on tracers 55 55 REAL(wp), PUBLIC :: rdth !: depth variation of tracer step 56 57 58 LOGICAL, PUBLIC :: ln_wad = .FALSE. !: turn on wetting/drying (T: on, F: off) 59 REAL(wp), PUBLIC :: rn_wadmin = 0.10_wp !: minimum water depth on dried cells 60 REAL(wp), PUBLIC :: rn_wadmine = 0.01_wp !: tolerrance of minimum water depth on dried cells 61 REAL(wp), PUBLIC :: rn_landele = 20.0_wp !: land elevation below which wetting/drying will be considered 56 62 57 63 ! !!! associated variables -
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r3764 r4355 81 81 ! 82 82 CALL dom_nam ! read namelist ( namrun, namdom, namcla ) 83 CALL dom_wad ! read namelist ( namwad ), wetting/drying 83 84 CALL dom_clo ! Closed seas and lake 84 85 CALL dom_hgr ! Horizontal mesh … … 269 270 ! 270 271 END SUBROUTINE dom_nam 272 273 SUBROUTINE dom_wad 274 !!---------------------------------------------------------------------- 275 !! *** ROUTINE dom_wad *** 276 !! 277 !! ** Purpose : read wetting/drying namelists and print the variables. 278 !! 279 !! ** input : - namwad namelist 280 !!---------------------------------------------------------------------- 281 USE ioipsl 282 NAMELIST/namwad/ ln_wad , rn_wadmin, rn_wadmine, rn_landele 283 !!---------------------------------------------------------------------- 284 285 REWIND( numnam ) ! Namelist namrun : parameters of the run 286 READ ( numnam, namwad ) 287 ! 288 IF(lwp) THEN ! control print 289 WRITE(numout,*) 290 WRITE(numout,*) 'dom_wad : set up wetting/drying ' 291 WRITE(numout,*) '~~~~~~~ ' 292 WRITE(numout,*) ' Namelist namwad' 293 WRITE(numout,*) ' turn on(off) wetting/drying ln_wad = ', ln_wad 294 WRITE(numout,*) ' minimal dry cell depth rn_ wadmin = ', rn_wadmin 295 WRITE(numout,*) ' tollerance of minimual depth rn_wadmine = ', rn_wadmine 296 WRITE(numout,*) ' threshold elevation for land masking rn_landele = ', rn_landele 297 ENDIF 298 299 END SUBROUTINE dom_wad 271 300 272 301
Note: See TracChangeset
for help on using the changeset viewer.