Changeset 2800 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

Timestamp:

2011-07-13T15:31:05+02:00 (13 years ago)

Author:

davestorkey

Message:

1. Application of boundary conditions to barotropic and baroclinic velocities clearly separated.
2. Option to input full velocities in boundary data (default expects barotropic and baroclinic velocities separately).
3. Option to use initial conditions as boundary conditions coded.

File:

• branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90 (modified) (1 diff)

branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_oce.F90

@@ -88 +88 @@
    REAL(wp)                                    ::   obcsurftot !: Lateral surface of unstructured open boundary
 
+   REAL(wp), POINTER, DIMENSION(:,:)           ::   pssh       !: 
+   REAL(wp), POINTER, DIMENSION(:,:)           ::   phur       !: 
+   REAL(wp), POINTER, DIMENSION(:,:)           ::   phvr       !: Pointers for barotropic fields 
+   REAL(wp), POINTER, DIMENSION(:,:)           ::   pu2d       !: 
+   REAL(wp), POINTER, DIMENSION(:,:)           ::   pv2d       !: 
+
    !!----------------------------------------------------------------------
    !! open boundary data variables