Changeset 1502 for trunk/NEMO/OPA_SRC/DYN/dynspg_oce.F90

Timestamp:

2009-07-20T17:20:23+02:00 (15 years ago)

Author:

rblod

Message:

Update dynnxt and dynspg_ts for variable volume, see ticket #474

File:

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

trunk/NEMO/OPA_SRC/DYN/dynspg_oce.F90

@@ -40 +40 @@
 
 #if   defined key_dynspg_ts   ||  defined key_vvl   ||  defined key_esopa
-   !! Time splitting variables
-   !! ------------------------
-      REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & ! variables averaged over the barotropic loop
-         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
-         sshn_e, ssha_e,                      & ! sea surface heigth (now, after)
-         hu_e  , hv_e                           ! depth arrays for the barotropic solution
+  !! Time splitting variables   ! variables of the explicit barotropic loop
+  !! ------------------------
+     REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: ua_e  , va_e             ! barotropic velocities (after)
+     REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: sshn_e, ssha_e, sshn_b   ! sea surface heigth (now, after, average)
+     REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: hu_e  , hv_e             ! depth arrays for the barotropic solution
+     REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: hur_e , hvr_e            ! inverse of depth arrays 
 #endif