Changeset 3125 for branches/2011/dev_NEMO_MERGE_2011

Timestamp:

2011-11-16T10:50:26+01:00 (12 years ago)

Author:

cetlod

Message:

dev_NEMO_MERGE_2011:minor bug corrections in zdfgls

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

@@ -131 +131 @@
       !!              coefficients using the GLS turbulent closure scheme.
       !!----------------------------------------------------------------------
-      USE oce     , ONLY z_elem_a  =>   ua   ! use ua as workspace
-      USE oce     , ONLY z_elem_b  =>   va   ! use va as workspace
-      USE oce     , ONLY tsa                 ! use tsa as workspace
+      USE oce     , ONLY: tsa                 ! use tsa as workspace
+      USE oce     , ONLY: z_elem_a  =>   ua   ! use ua as workspace
+      USE oce     , ONLY: z_elem_b  =>   va   ! use va as workspace
       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zdep  => wrk_2d_1
-      USE wrk_nemo, ONLY: zflxs => wrk_2d_2     ! Turbulence fluxed induced by internal waves 
-      USE wrk_nemo, ONLY: zhsro => wrk_2d_3     ! Surface roughness (surface waves)
+      USE wrk_nemo, ONLY: zdep      => wrk_2d_1
+      USE wrk_nemo, ONLY: zflxs     => wrk_2d_2     ! Turbulence fluxed induced by internal waves 
+      USE wrk_nemo, ONLY: zhsro     => wrk_2d_3     ! Surface roughness (surface waves)
       USE wrk_nemo, ONLY: eb        => wrk_3d_1   ! tke at time before
       USE wrk_nemo, ONLY: mxlb      => wrk_3d_2   ! mixing length at time before