Changeset 4355
- Timestamp:
- 2014-01-17T18:55:02+01:00 (10 years ago)
- Location:
- branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 1 added
- 5 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 -
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/oce.F90
r3625 r4355 55 55 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: snwice_fmass !: time evolution of mass of snow+ice [Kg/m2/s] 56 56 57 57 58 !!---------------------------------------------------------------------- 58 59 !! NEMO/OPA 4.0 , NEMO Consortium (2011) … … 66 67 !! *** FUNCTION oce_alloc *** 67 68 !!---------------------------------------------------------------------- 68 INTEGER :: ierr( 3)69 INTEGER :: ierr(4) 69 70 !!---------------------------------------------------------------------- 70 71 ! -
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/step.F90
r3985 r4355 87 87 88 88 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 89 ! Ocean dynamics : Wetting/Drying Limiter 90 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 91 CALL wad_lmt( kstp ) ! wetting/drying limiter 92 93 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 89 94 ! Update data, open boundaries, surface boundary condition (including sea-ice) 90 95 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -
branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r3769 r4355 116 116 USE trcstp ! passive tracer time-stepping (trc_stp routine) 117 117 #endif 118 USE wadlmt ! wetting/drying limiter (wad_lmt routine) 118 119 !!---------------------------------------------------------------------- 119 120 !! NEMO/OPA 3.3 , NEMO Consortium (2010)
Note: See TracChangeset
for help on using the changeset viewer.