New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2184 – NEMO

Changeset 2184


Ignore:
Timestamp:
2010-10-07T17:10:48+02:00 (14 years ago)
Author:
rfurner
Message:

added updates to mixed_ldfdyn branch revision 1840:2182

Location:
branches/devukmo2010
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • branches/devukmo2010/CONFIG/GYRE/EXP00/namelist

    r2179 r2184  
    484484   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
    485485                           !  Coefficient 
    486    rn_ahm_0    = 100000.        !  horizontal eddy viscosity   [m2/s] 
    487    rn_ahmb_0   =     0.         !  background eddy viscosity for ldf_iso [m2/s] 
     486   rn_ahm_0_lap     = 100000.   !  horizontal laplacian eddy viscosity   [m2/s] 
     487   rn_ahmb_0        =     0.    !  background eddy viscosity for ldf_iso [m2/s] 
     488   rn_ahm_0_blp     =     0.    !  horizontal bilaplacian eddy viscosity [m4/s] 
    488489/ 
    489490!!====================================================================== 
  • branches/devukmo2010/CONFIG/GYRE_LOBSTER/EXP00/namelist

    r2179 r2184  
    484484   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
    485485                           !  Coefficient 
    486    rn_ahm_0    = 100000.        !  horizontal eddy viscosity   [m2/s] 
    487    rn_ahmb_0   =     0.         !  background eddy viscosity for ldf_iso [m2/s] 
     486   rn_ahm_0         = 100000.   !  horizontal laplacian eddy viscosity   [m2/s] 
     487   rn_ahmb_0        =     0.    !  background eddy viscosity for ldf_iso [m2/s] 
     488   rn_ahm_0_blp     =     0.    !  horizontal bilaplacian eddy viscosity [m4/s] 
    488489/ 
    489490!!====================================================================== 
  • branches/devukmo2010/CONFIG/ORCA2_LIM/EXP00/namelist

    r2179 r2184  
    512512   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
    513513                           !  Coefficient 
    514    rn_ahm_0         = 40000.    !  horizontal laplacian eddy viscosity   [m2/s] 
     514   rn_ahm_0_lap     = 40000.    !  horizontal laplacian eddy viscosity   [m2/s] 
    515515   rn_ahmb_0        =     0.    !  background eddy viscosity for ldf_iso [m2/s] 
    516516   rn_ahm_0_blp     =     0.    !  horizontal bilaplacian eddy viscosity [m4/s]  
  • branches/devukmo2010/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist

    r2179 r2184  
    511511   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
    512512                           !  Coefficient 
    513    rn_ahm_0    = 40000.         !  horizontal eddy viscosity   [m2/s] 
    514    rn_ahmb_0   =     0.         !  background eddy viscosity for ldf_iso [m2/s] 
     513   rn_ahm_0_lap     = 40000.    !  horizontal laplacian eddy viscosity   [m2/s] 
     514   rn_ahmb_0        =     0.    !  background eddy viscosity for ldf_iso [m2/s] 
     515   rn_ahm_0_blp     =     0.    !  horizontal bilaplacian eddy viscosity [m4/s] 
    515516/ 
    516517!!====================================================================== 
  • branches/devukmo2010/CONFIG/POMME/EXP00/namelist

    r2179 r2184  
    508508   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
    509509                           !  Coefficient 
    510    rn_ahm_0    = -1.5e11        !  horizontal eddy viscosity   [m2/s] 
    511    rn_ahmb_0   =    500.        !  background eddy viscosity for ldf_iso [m2/s] 
     510   rn_ahm_0_lap     =     0.    !  horizontal laplacian eddy viscosity   [m2/s] 
     511   rn_ahmb_0        =    500.   !  background eddy viscosity for ldf_iso [m2/s] 
     512   rn_ahm_0_blp     = -1.5e11   !  horizontal bilaplacian eddy viscosity [m4/s] 
    512513/ 
    513514!!====================================================================== 
  • branches/devukmo2010/DOC/TexFiles/Namelist/nam_dynldf

    r2128 r2184  
    1010   ln_dynldf_iso    =  .false.  !     iso-neutral                      (require "key_ldfslp") 
    1111                                !  Coefficient 
    12    rn_ahm_0         = 40000.    !     horizontal laplacian eddy viscosity   [m2/s] 
     12   rn_ahm_0_lap     = 40000.    !     horizontal laplacian eddy viscosity   [m2/s] 
    1313   rn_ahmb_0        =     0.    !     background eddy viscosity for ldf_iso [m2/s] 
    1414   rn_ahm_0_blp     =     0.    !     horizontal bilaplacian eddy viscosity [m4/s]  
  • branches/devukmo2010/NEMO/OPA_SRC/DYN/dynldf.F90

    r2128 r2184  
    3232   PUBLIC   dyn_ldf   ! called by step module  
    3333 
    34    INTEGER ::   nldf = 0   ! type of lateral diffusion used defined from ln_dynldf_... namlist logicals) 
     34   INTEGER ::   nldf = -2   ! type of lateral diffusion used defined from ln_dynldf_... namlist logicals) 
    3535 
    3636   !! * Substitutions 
  • branches/devukmo2010/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r2128 r2184  
    6767      NAMELIST/namdyn_ldf/ ln_dynldf_lap  , ln_dynldf_bilap,                  & 
    6868         &                 ln_dynldf_level, ln_dynldf_hor  , ln_dynldf_iso,   & 
    69          &                 rn_ahm_0       , rn_ahmb_0      , rn_ahm_0_blp 
     69         &                 rn_ahm_0_lap   , rn_ahmb_0      , rn_ahm_0_blp 
    7070      !!---------------------------------------------------------------------- 
    7171 
     
    8383         WRITE(numout,*) '      horizontal (geopotential)               ln_dynldf_hor   = ', ln_dynldf_hor 
    8484         WRITE(numout,*) '      iso-neutral                             ln_dynldf_iso   = ', ln_dynldf_iso 
    85          WRITE(numout,*) '      horizontal laplacian eddy viscosity     rn_ahm_0        = ', rn_ahm_0 
     85         WRITE(numout,*) '      horizontal laplacian eddy viscosity     rn_ahm_0_lap    = ', rn_ahm_0_lap 
    8686         WRITE(numout,*) '      background viscosity                    rn_ahmb_0       = ', rn_ahmb_0 
    87          WRITE(numout,*) '      horizontal bilaplacian eddy viscosity   rn_ahm_0        = ', rn_ahm_0 
    88  
    89       ENDIF 
    90  
    91       ahm0     = rn_ahm_0                  ! OLD namelist variables defined from DOCTOR namelist variables 
     87         WRITE(numout,*) '      horizontal bilaplacian eddy viscosity   rn_ahm_0_blp    = ', rn_ahm_0_blp 
     88 
     89      ENDIF 
     90 
     91      ahm0     = rn_ahm_0_lap              ! OLD namelist variables defined from DOCTOR namelist variables 
    9292      ahmb0    = rn_ahmb_0 
    9393      ahm0_blp = rn_ahm_0_blp 
     
    120120      IF( ln_dynldf_bilap ) THEN 
    121121         IF(lwp) WRITE(numout,*) '   biharmonic momentum diffusion' 
    122          IF( ahm0_blp == 0.0 ) ahm0_blp = ahm0       ! Old namelist method: bilap specified with ahm0 
    123122         IF( .NOT. ln_dynldf_lap ) ahm0 = ahm0_blp   ! Allow spatially varying coefs, which use ahm0 as input 
    124123         IF( ahm0_blp > 0 .AND. .NOT. lk_esopa )   CALL ctl_stop( 'The horizontal viscosity coef. ahm0 must be negative' ) 
  • branches/devukmo2010/NEMO/OPA_SRC/LDF/ldfdyn_oce.F90

    r2128 r2184  
    1717   LOGICAL , PUBLIC ::   ln_dynldf_hor   = .TRUE.      !: horizontal (geopotential) direction 
    1818   LOGICAL , PUBLIC ::   ln_dynldf_iso   = .FALSE.     !: iso-neutral direction 
    19    REAL(wp), PUBLIC ::   rn_ahm_0        = 40000._wp   !: lateral laplacian eddy viscosity (m2/s) 
     19   REAL(wp), PUBLIC ::   rn_ahm_0_lap    = 40000._wp   !: lateral laplacian eddy viscosity (m2/s) 
    2020   REAL(wp), PUBLIC ::   rn_ahmb_0       =     0._wp   !: lateral laplacian background eddy viscosity (m2/s) 
    2121   REAL(wp), PUBLIC ::   rn_ahm_0_blp    =     0._wp   !: lateral bilaplacian eddy viscosity (m4/s) 
    2222 
    23    REAL(wp), PUBLIC ::   ahm0, ahmb0, ahm0_blp       ! OLD namelist names 
     23   REAL(wp), PUBLIC ::   ahm0, ahmb0, ahm0_blp         ! OLD namelist names 
    2424 
    2525#if defined key_dynldf_c3d 
Note: See TracChangeset for help on using the changeset viewer.