Changeset 32 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

Timestamp:

2004-02-17T10:20:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

@@ -63 +63 @@
       !!        Part I : horizontal advection
       !!      * centered flux:
-      !!         * s-coordinate ('key_s_coord') or
-      !!         * z-coordinate with partial steps ('key_partial_steps'),
+      !!         * s-coordinate (lk_sco=T) or
+      !!         * z-coordinate with partial steps (lk_zps=T),
       !!        the vertical scale factors e3. are inside the derivatives:
       !!               zcenu = e2u*e3u  un  mi(tn)
@@ -72 +72 @@
       !!               zcenv = e1v  vn  mj(tn)
       !!      * upstream flux:
-      !!         * s-coordinate ('key_s_coord') or
-      !!         * z-coordinate with partial steps ('key_partial_steps')
+      !!         * s-coordinate (lk_sco=T) or
+      !!         * z-coordinate with partial steps (lk_zps=T)
       !!               zupsu = e2u*e3u  un  (tb(i) or tb(i-1) ) [un>0 or <0]
       !!               zupsv = e1v*e3v  vn  (tb(j) or tb(j-1) ) [vn>0 or <0]
@@ -85 +85 @@
       !!               zwy = zcofj * zupsv + (1-zcofj) * zcenv
       !!      * horizontal advective trend (divergence of the fluxes)
-      !!         * s-coordinate ('key_s_coord') or
-      !!         * z-coordinate with partial steps ('key_partial_steps')
+      !!         * s-coordinate (lk_sco=T) or
+      !!         * z-coordinate with partial steps (lk_zps=T)
       !!               zta = 1/(e1t*e2t*e3t) { di-1[zwx] + dj-1[zwy] }
       !!         * z-coordinate (default key), e3t=e3u=e3v:
@@ -180 +180 @@
       ! Advective bottom boundary layer 
       ! -------------------------------
-      zun(:,:,:) = un (:,:,:) - u_bbl(:,:,:)
-      zvn(:,:,:) = vn (:,:,:) - v_bbl(:,:,:)
-      zwn(:,:,:) = wn (:,:,:) + w_bbl(:,:,:)
+      zun(:,:,:) = un(:,:,:) - u_bbl(:,:,:)
+      zvn(:,:,:) = vn(:,:,:) - v_bbl(:,:,:)
+      zwn(:,:,:) = wn(:,:,:) + w_bbl(:,:,:)
 #endif