Changeset 4355


Ignore:
Timestamp:
2014-01-17T18:55:02+01:00 (7 years ago)
Author:
hliu
Message:

update Wetting/drying branch. Will keep commit in the next a few days.

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  
    5454   REAL(wp), PUBLIC ::   rdtmax          !: maximum time step on tracers 
    5555   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 
    5662 
    5763   !                                                  !!! associated variables 
  • branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r3764 r4355  
    8181      ! 
    8282                             CALL dom_nam      ! read namelist ( namrun, namdom, namcla ) 
     83                             CALL dom_wad      ! read namelist ( namwad ), wetting/drying 
    8384                             CALL dom_clo      ! Closed seas and lake 
    8485                             CALL dom_hgr      ! Horizontal mesh 
     
    269270      ! 
    270271   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 
    271300 
    272301 
  • branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r3625 r4355  
    5555   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   snwice_fmass       !: time evolution of mass of snow+ice               [Kg/m2/s] 
    5656 
     57 
    5758   !!---------------------------------------------------------------------- 
    5859   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
     
    6667      !!                   ***  FUNCTION oce_alloc  *** 
    6768      !!---------------------------------------------------------------------- 
    68       INTEGER :: ierr(3) 
     69      INTEGER :: ierr(4) 
    6970      !!---------------------------------------------------------------------- 
    7071      ! 
  • branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/step.F90

    r3985 r4355  
    8787 
    8888      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
     89      !  Ocean dynamics : Wetting/Drying Limiter 
     90      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
     91                         CALL wad_lmt( kstp )         ! wetting/drying limiter 
     92 
     93      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    8994      ! Update data, open boundaries, surface boundary condition (including sea-ice) 
    9095      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
  • branches/2013/dev_r4050_NOC_WaD/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r3769 r4355  
    116116   USE trcstp           ! passive tracer time-stepping      (trc_stp routine) 
    117117#endif 
     118   USE wadlmt           ! wetting/drying limiter            (wad_lmt routine) 
    118119   !!---------------------------------------------------------------------- 
    119120   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
Note: See TracChangeset for help on using the changeset viewer.