Changeset 1406

Timestamp:

2009-04-16T15:40:19+02:00 (16 years ago)

Author:

rblod

Message:

Cleaning for VVL

File:

• branches/dev_004_VVL/NEMO/OPA_SRC/DYN/dynspg_oce.F90 (modified) (1 diff)

branches/dev_004_VVL/NEMO/OPA_SRC/DYN/dynspg_oce.F90

@@ -43 +43 @@
    !! ------------------------
       REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & ! variables averaged over the barotropic loop
-         sshn_b, sshb_b,               &  ! sea surface heigth (now, before)
-         un_b  , vn_b                     ! vertically integrated horizontal velocities (now)
+         un_e  , vn_e,                        & ! vertically integrated horizontal velocities (now)
+         ua_e  , va_e                           ! vertically integrated horizontal velocities (after)
       REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & ! variables of the explicit barotropic loop
-         sshb_e, sshn_e, ssha_e,       &  ! sea surface heigth (before,now,after)
-         ua_e  , va_e,                 &  ! vertically integrated horizontal velocities (after)
-         hu_e  , hv_e                     ! depth arrays for the barotropic solution
+         sshn_e, ssha_e,                      & ! sea surface heigth (now, after)
+         hu_e  , hv_e                           ! depth arrays for the barotropic solution
 #endif