Changeset 1380 for branches/dev_004_VVL/NEMO/OPA_SRC/oce.F90

Timestamp:

2009-04-06T13:00:29+02:00 (15 years ago)

Author:

rblod

Message:

Change scale factor computation in VVL case, see ticket #397

File:

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

branches/dev_004_VVL/NEMO/OPA_SRC/oce.F90

@@ -59 +59 @@
       gtv, gsv, grv          !: v-points at bottom ocean level 
 
-   !! free surface
-   !! ------------
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
-      sshb , sshn ,        &  !: before, now sea surface height (meters)
-      sshu , sshv ,        &  !: sea surface height at u- and v- point
-      sshbb, ssha             !: before before sea surface height at t-point
+   !! free surface                       !  before  !  now     !  after   !
+   !! ------------                       !  fields  !  fields  !  trends  !
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshb   ,  sshn    ,  ssha    !: sea surface height at t-point [m]
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshu_b ,  sshu_n  ,  sshu_a  !: sea surface height at u-point [m]
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshv_b ,  sshv_n  ,  sshv_a  !: sea surface height at u-point [m]
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshf_b ,  sshf_n  ,  sshf_a  !: sea surface height at f-point [m]
+
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshbb         !: before before & after sea surface height at t-point
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshn_f        !: filtered now sea surface height at t-point
 
 #if defined key_dynspg_rl   ||   defined key_esopa