Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2012-07-11T13:22:58+02:00 (12 years ago)

Author:

trackstand2

Message:

Merge branch 'ksection_partition'

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -281 +281 @@
             ! surface at t-points and inverse surface at (u/v)-points used in surface averaging computations
             zs_t  (:,:) =       e1t(:,:) * e2t(:,:)
-            zs_u_1(:,:) = 0.5 / e1u(:,:) * e2u(:,:)
-            zs_v_1(:,:) = 0.5 / e1v(:,:) * e2v(:,:)
+            zs_u_1(:,:) = 0.5 / ( e1u(:,:) * e2u(:,:) )
+            zs_v_1(:,:) = 0.5 / ( e1v(:,:) * e2v(:,:) )
             !
             IF( ln_dynadv_vec ) THEN