Changeset 2176
- Timestamp:
- 2010-10-07T09:39:02+02:00 (14 years ago)
- 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 67 67 NAMELIST/namtra_ldf/ ln_traldf_lap , ln_traldf_bilap, & 68 68 & ln_traldf_level, ln_traldf_hor , ln_traldf_iso, & 69 & ln_traldf_vis, & 69 70 & rn_aht_0 , rn_ahtb_0 , rn_aeiv_0 70 71 !!---------------------------------------------------------------------- … … 83 84 WRITE(numout,*) ' laplacian operator ln_traldf_lap = ', ln_traldf_lap 84 85 WRITE(numout,*) ' bilaplacian operator ln_traldf_bilap = ', ln_traldf_bilap 86 WRITE(numout,*) ' visbeck operator ln_traldf_vis = ', ln_traldf_vis 85 87 WRITE(numout,*) ' lateral eddy diffusivity rn_aht_0 = ', rn_aht_0 86 88 WRITE(numout,*) ' background hor. diffusivity rn_ahtb_0 = ', rn_ahtb_0 -
branches/DEV_r1924_visbeck/NEMO/OPA_SRC/LDF/ldftra_oce.F90
r1601 r2176 20 20 LOGICAL , PUBLIC :: ln_traldf_hor = .FALSE. !: horizontal (geopotential) direction 21 21 LOGICAL , PUBLIC :: ln_traldf_iso = .TRUE. !: iso-neutral direction 22 LOGICAL , PUBLIC :: ln_traldf_vis = .FALSE. !: visbeck eddy velocity coefficients 22 23 REAL(wp), PUBLIC :: rn_aht_0 = 2000._wp !: lateral eddy diffusivity (m2/s) 23 24 REAL(wp), PUBLIC :: rn_ahtb_0 = 0._wp !: lateral background eddy diffusivity (m2/s) … … 41 42 !! 'key_traldf_eiv' eddy induced velocity 42 43 !!---------------------------------------------------------------------- 43 LOGICAL, PUBLIC, PARAMETER :: lk_traldf_eiv = .TRUE. !: eddy induced velocity flag44 LOGICAL, PUBLIC, PARAMETER :: lk_traldf_eiv = .TRUE. !: eddy induced velocity flag 44 45 45 46 # if defined key_traldf_c3d -
branches/DEV_r1924_visbeck/NEMO/OPA_SRC/TRA/traldf.F90
r1601 r2176 143 143 WRITE(numout,*) ' horizontal (geopotential) ln_traldf_hor = ', ln_traldf_hor 144 144 WRITE(numout,*) ' iso-neutral ln_traldf_iso = ', ln_traldf_iso 145 WRITE(numout,*) ' Visbeck scheme for aeiv ln_traldf_vis = ', ln_traldf_vis 145 146 ENDIF 146 147 -
branches/DEV_r1924_visbeck/NEMO/OPA_SRC/step.F90
r1793 r2176 85 85 USE ldfslp ! iso-neutral slopes (ldf_slp routine) 86 86 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 87 USE ldfeiv_vis ! eddy induced velocity coef. (ldf_eiv_vis routine) 87 88 88 89 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) … … 237 238 ENDIF 238 239 #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 240 247 # endif 241 248
Note: See TracChangeset
for help on using the changeset viewer.