Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.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/DOM/domvvl.F90 (modified) (1 diff)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -156 +156 @@
       ! surface at t-points and inverse surface at (u/v)-points used in surface averaging computations
       ! for ssh and scale factors
-      zs_t  (:,:) =       e1t(:,:) * e2t(:,:)
-      zs_u_1(:,:) = 0.5 / e1u(:,:) * e2u(:,:)
-      zs_v_1(:,:) = 0.5 / e1v(:,:) * e2v(:,:)
+      zs_t  (:,:) =         e1t(:,:) * e2t(:,:)
+      zs_u_1(:,:) = 0.5 / ( e1u(:,:) * e2u(:,:) )
+      zs_v_1(:,:) = 0.5 / ( e1v(:,:) * e2v(:,:) )
 
       DO jj = 1, jpjm1                          ! initialise before and now Sea Surface Height at u-, v-, f-points