Changeset 2917 for branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2011-10-13T18:28:09+02:00 (13 years ago)

Author:

mlelod

Message:

save memory and cpu in the layer case, see ticket/863?

File:

• branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -90 +90 @@
       END IF
       !
-      ! - ML - only used in domvvl but could be usefull in many routines
+      ! - ML - Used in domvvl and traldf_(lab/bilap/iso) but could be usefull in many other modules
       e12t  (:,:) = e1t(:,:) * e2t(:,:)
       e12u  (:,:) = e1u(:,:) * e2u(:,:)
@@ -96 +96 @@
       e12v_1(:,:) = 0.5 / ( e1v(:,:) * e2v(:,:) )
       e12f_1(:,:) = 0.5 / ( e1f(:,:) * e2f(:,:) )
-      ! - ML - used in domvvl and traldf_(lab/bilap/iso)
       e1ur  (:,:) = e2u(:,:) / e1u(:,:)
       e2vr  (:,:) = e1v(:,:) / e2v(:,:)