Changeset 2002 for branches/dev_1784_ASM/NEMO/OPA_SRC/ZDF/zdftke.F90
- Timestamp:
- 2010-07-09T14:19:55+02:00 (14 years ago)
- File:
-
- 1 edited
-
branches/dev_1784_ASM/NEMO/OPA_SRC/ZDF/zdftke.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_1784_ASM/NEMO/OPA_SRC/ZDF/zdftke.F90
r1756 r2002 87 87 88 88 REAL(wp), DIMENSION(jpi,jpj) :: htau ! depth of tke penetration (nn_htau) 89 REAL(wp), DIMENSION(jpi,jpj,jpk) :: en ! now turbulent kinetic energy [m2/s2]89 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: en ! now turbulent kinetic energy [m2/s2] 90 90 REAL(wp), DIMENSION(jpi,jpj,jpk) :: dissl ! now mixing lenght of dissipation 91 91
Note: See TracChangeset
for help on using the changeset viewer.
