Changeset 2177
- Timestamp:
- 2010-10-07T09:54:26+02:00 (14 years ago)
- Location:
- branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC
- Files:
-
- 1 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/LDF/ldftra.F90
r2163 r2177 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, ln_traldf_grif ,&69 & ln_traldf_grif , & 70 70 & rn_aht_0 , rn_ahtb_0 , rn_aeiv_0, & 71 71 & rn_slpmax … … 85 85 WRITE(numout,*) ' laplacian operator ln_traldf_lap = ', ln_traldf_lap 86 86 WRITE(numout,*) ' bilaplacian operator ln_traldf_bilap = ', ln_traldf_bilap 87 WRITE(numout,*) ' visbeck operator ln_traldf_vis = ', ln_traldf_vis88 87 WRITE(numout,*) ' griffies operator ln_traldf_grif = ', ln_traldf_grif 89 88 WRITE(numout,*) ' lateral eddy diffusivity rn_aht_0 = ', rn_aht_0 -
branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/LDF/ldftra_oce.F90
r2163 r2177 21 21 LOGICAL , PUBLIC :: ln_traldf_iso = .TRUE. !: iso-neutral direction 22 22 LOGICAL , PUBLIC :: ln_traldf_grif = .TRUE. !: griffies skew flux 23 LOGICAL , PUBLIC :: ln_traldf_vis = .FALSE. !: griffies skew flux24 23 REAL(wp), PUBLIC :: rn_aht_0 = 2000._wp !: lateral eddy diffusivity (m2/s) 25 24 REAL(wp), PUBLIC :: rn_ahtb_0 = 0._wp !: lateral background eddy diffusivity (m2/s) -
branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/TRA/traldf.F90
r2060 r2177 154 154 WRITE(numout,*) ' iso-neutral ln_traldf_iso = ', ln_traldf_iso 155 155 WRITE(numout,*) ' iso-neutral (Griffies) ln_traldf_grif = ', ln_traldf_grif 156 WRITE(numout,*) ' Visbeck scheme for aeiv ln_traldf_vis = ', ln_traldf_vis157 156 ENDIF 158 157 -
branches/DEV_r1924_nocs_latphys/NEMO/OPA_SRC/step.F90
r2060 r2177 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)88 87 89 88 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) … … 243 242 ENDIF 244 243 #if defined key_traldf_c2d 245 IF( lk_traldf_eiv ) THEN ! eddy induced velocity coefficient 246 IF ( ln_traldf_vis ) THEN 247 CALL ldf_eiv_vis( kstp ) 248 ELSE 249 CALL ldf_eiv( kstp ) 250 ENDIF 251 ENDIF 244 IF( lk_traldf_eiv ) CALL ldf_eiv( kstp ) ! eddy induced velocity coefficient 252 245 # endif 253 246
Note: See TracChangeset
for help on using the changeset viewer.