Changeset 2176


Ignore:
Timestamp:
2010-10-07T09:39:02+02:00 (11 years ago)
Author:
sga
Message:

NEMO branch DEV_r1924_visbeck.

Add code to be cut from branch DEV_r1924_nocs_latphys at revision 2163

Location:
branches/DEV_r1924_visbeck/NEMO/OPA_SRC
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra.F90

    r1601 r2176  
    6767      NAMELIST/namtra_ldf/ ln_traldf_lap  , ln_traldf_bilap,                  & 
    6868         &                 ln_traldf_level, ln_traldf_hor  , ln_traldf_iso,   & 
     69         &                 ln_traldf_vis,                                     & 
    6970         &                 rn_aht_0       , rn_ahtb_0      , rn_aeiv_0 
    7071      !!---------------------------------------------------------------------- 
     
    8384         WRITE(numout,*) '      laplacian operator            ln_traldf_lap   = ', ln_traldf_lap 
    8485         WRITE(numout,*) '      bilaplacian operator          ln_traldf_bilap = ', ln_traldf_bilap 
     86         WRITE(numout,*) '      visbeck     operator          ln_traldf_vis   = ', ln_traldf_vis    
    8587         WRITE(numout,*) '      lateral eddy diffusivity      rn_aht_0        = ', rn_aht_0 
    8688         WRITE(numout,*) '      background hor. diffusivity   rn_ahtb_0       = ', rn_ahtb_0 
  • branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra_oce.F90

    r1601 r2176  
    2020   LOGICAL , PUBLIC ::   ln_traldf_hor   = .FALSE.   !: horizontal (geopotential) direction 
    2121   LOGICAL , PUBLIC ::   ln_traldf_iso   = .TRUE.    !: iso-neutral direction 
     22   LOGICAL , PUBLIC ::   ln_traldf_vis   = .FALSE.   !: visbeck eddy velocity coefficients 
    2223   REAL(wp), PUBLIC ::   rn_aht_0        = 2000._wp  !: lateral eddy diffusivity (m2/s) 
    2324   REAL(wp), PUBLIC ::   rn_ahtb_0       =    0._wp  !: lateral background eddy diffusivity (m2/s) 
     
    4142   !!   'key_traldf_eiv'                              eddy induced velocity 
    4243   !!---------------------------------------------------------------------- 
    43    LOGICAL, PUBLIC, PARAMETER ::   lk_traldf_eiv   = .TRUE.   !: eddy induced velocity flag 
     44   LOGICAL, PUBLIC, PARAMETER               ::   lk_traldf_eiv   = .TRUE.   !: eddy induced velocity flag 
    4445       
    4546# if defined key_traldf_c3d 
  • branches/DEV_r1924_visbeck/NEMO/OPA_SRC/TRA/traldf.F90

    r1601 r2176  
    143143         WRITE(numout,*) '      horizontal (geopotential)   ln_traldf_hor   = ', ln_traldf_hor 
    144144         WRITE(numout,*) '      iso-neutral                 ln_traldf_iso   = ', ln_traldf_iso 
     145         WRITE(numout,*) '      Visbeck scheme for aeiv     ln_traldf_vis   = ', ln_traldf_vis 
    145146      ENDIF 
    146147 
  • branches/DEV_r1924_visbeck/NEMO/OPA_SRC/step.F90

    r1793 r2176  
    8585   USE ldfslp          ! iso-neutral slopes               (ldf_slp routine) 
    8686   USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine) 
     87   USE ldfeiv_vis      ! eddy induced velocity coef.  (ldf_eiv_vis routine) 
    8788 
    8889   USE zdftmx          ! tide-induced vertical mixing     (zdf_tmx routine) 
     
    237238      ENDIF 
    238239#if defined key_traldf_c2d 
    239       IF( lk_traldf_eiv )   CALL ldf_eiv( kstp )      ! eddy induced velocity coefficient 
     240      IF( lk_traldf_eiv )  THEN                                  ! eddy induced velocity coefficient 
     241         IF ( ln_traldf_vis )   THEN 
     242            CALL ldf_eiv_vis( kstp ) 
     243         ELSE 
     244            CALL ldf_eiv( kstp ) 
     245         ENDIF 
     246      ENDIF 
    240247#  endif 
    241248 
Note: See TracChangeset for help on using the changeset viewer.