Changeset 1417 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-04-29T17:27:07+02:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1359 r1417 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. -
trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r1152 r1417 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) :: & !: -
trunk/NEMO/OPA_SRC/step.F90
r1359 r1417 86 86 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 87 87 88 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) 88 89 USE zdfbfr ! bottom friction (zdf_bfr routine) 89 90 USE zdftke ! TKE vertical mixing (zdf_tke routine) … … 252 253 & CALL zdf_ddm( kstp ) ! double diffusive mixing 253 254 255 IF( lk_zdftmx ) CALL zdf_tmx( kstp ) ! tidal vertical mixing 256 254 257 CALL zdf_bfr( kstp ) ! bottom friction 255 258
Note: See TracChangeset
for help on using the changeset viewer.