Changeset 3125
- Timestamp:
- 2011-11-16T10:50:26+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r2977 r3125 131 131 !! coefficients using the GLS turbulent closure scheme. 132 132 !!---------------------------------------------------------------------- 133 USE oce , ONLY z_elem_a => ua ! use ua as workspace134 USE oce , ONLY z_elem_b => va ! use va as workspace135 USE oce , ONLY tsa ! use tsa as workspace133 USE oce , ONLY: tsa ! use tsa as workspace 134 USE oce , ONLY: z_elem_a => ua ! use ua as workspace 135 USE oce , ONLY: z_elem_b => va ! use va as workspace 136 136 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 137 USE wrk_nemo, ONLY: zdep => wrk_2d_1138 USE wrk_nemo, ONLY: zflxs => wrk_2d_2 ! Turbulence fluxed induced by internal waves139 USE wrk_nemo, ONLY: zhsro => wrk_2d_3 ! Surface roughness (surface waves)137 USE wrk_nemo, ONLY: zdep => wrk_2d_1 138 USE wrk_nemo, ONLY: zflxs => wrk_2d_2 ! Turbulence fluxed induced by internal waves 139 USE wrk_nemo, ONLY: zhsro => wrk_2d_3 ! Surface roughness (surface waves) 140 140 USE wrk_nemo, ONLY: eb => wrk_3d_1 ! tke at time before 141 141 USE wrk_nemo, ONLY: mxlb => wrk_3d_2 ! mixing length at time before
Note: See TracChangeset
for help on using the changeset viewer.