- Timestamp:
- 2009-05-07T16:23:43+02:00 (15 years ago)
- Location:
- branches/dev_004_VVL/NEMO/OPA_SRC
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/DIA/diawri.F90
r1359 r1430 369 369 CALL histdef( nid_W, "votkeavt", "Vertical Eddy Diffusivity" , "m2/s" , & ! avt 370 370 & jpi, jpj, nh_W, ipk, 1, ipk, nz_W, 32, clop, zsto, zout ) 371 371 # if defined key_zdftmx 372 CALL histdef( nid_W, "votidavt", "Tidal Vertical Eddy Diffusivity" , "m2/s" , & ! avt_tide 373 & jpi, jpj, nh_W, ipk, 1, ipk, nz_W, 32, clop, zsto, zout ) 374 375 CALL histdef( nid_W, "voitfavt", "Tidal ITF Vertical Eddy Diffusivity", "m2/s" , & ! avt_tide_itf 376 & jpi, jpj, nh_W, ipk, 1, ipk, nz_W, 32, clop, zsto, zout ) 377 # endif 372 378 CALL histdef( nid_W, "votkeevd", "Enhanced Vertical Diffusivity", "m2/s" , & ! avt_evd 373 379 & jpi, jpj, nh_W, ipk, 1, ipk, nz_W, 32, clop, zsto, zout ) … … 499 505 CALL iom_put("votkeavm",avmu) ! T vert. eddy visc. coef. 500 506 CALL iom_put("votkeevm",avmu_evd) ! T enhan. vert. eddy visc. coef. 507 # if defined key_zdftmx 508 CALL iom_put("votidavt",av_tide) ! vert. mix. related to internal tides 509 CALL iom_put("voitfavt",av_tide_itf) ! ITF vert. mix. related to internal tides 510 # endif 501 511 IF( lk_zdfddm ) THEN 502 512 CALL iom_put("voddmavs",fsavs(:,:,:) ) ! S vert. eddy diff. coef. … … 597 607 # endif 598 608 CALL histwrite( nid_W, "votkeavt", it, avt , ndim_T, ndex_T ) ! T vert. eddy diff. coef. 609 # if defined key_zdftmx 610 CALL histwrite( nid_W, "votidavt", it, av_tide , ndim_T, ndex_T ) ! vert. mix. related to internal tides 611 CALL histwrite( nid_W, "voitfavt", it, av_tide_itf , ndim_T, ndex_T ) ! ITF vert. mix. related to internal tides 612 # endif 599 613 CALL histwrite( nid_W, "votkeevd", it, avt_evd , ndim_T, ndex_T ) ! T enhan. vert. eddy diff. coef. 600 614 CALL histwrite( nid_W, "votkeavm", it, avmu , ndim_T, ndex_T ) ! T vert. eddy visc. coef. -
branches/dev_004_VVL/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r1152 r1430 45 45 avt_evd, & !: convection: enhanced vertical diffusivity coeff. at w-point 46 46 avmu_evd !: convection: enhanced vertical viscosity coeff. at w-point 47 #if defined key_zdftmx 48 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: av_tide, av_tide_itf !: Tidal mixing 49 #endif 47 50 48 51 REAL(wp), PUBLIC, DIMENSION(jpk) :: & !: -
branches/dev_004_VVL/NEMO/OPA_SRC/step.F90
r1408 r1430 85 85 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 86 86 87 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) 87 88 USE zdfbfr ! bottom friction (zdf_bfr routine) 88 89 USE zdftke ! TKE vertical mixing (zdf_tke routine) … … 253 254 & CALL zdf_ddm( kstp ) ! double diffusive mixing 254 255 256 IF( lk_zdftmx ) CALL zdf_tmx( kstp ) ! tidal vertical mixing 257 255 258 CALL zdf_bfr( kstp ) ! bottom friction 256 259
Note: See TracChangeset
for help on using the changeset viewer.