Changeset 2818 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

2011-08-08T10:16:41+02:00 (13 years ago)

Author:

davestorkey

Message:

Bug fixes for the dynspg_ts case.

File:

• branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (2 diffs)

branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -30 +30 @@
    USE domvvl          ! variable volume
    USE obc_oce         ! ocean open boundary conditions
-   USE obcdyn          ! open boundary condition for baroclinic velocities
+   USE obcdta          ! ocean open boundary conditions
+   USE obcdyn3d        ! ocean open boundary conditions
    USE obcvol          ! ocean open boundary condition (obc_vol routines)
    USE in_out_manager  ! I/O manager
@@ -154 +155 @@
       IF( .NOT. lk_dynspg_flt ) THEN
 
-         CALL obc_dyn( kt )
+         CALL obc_dyn3d( kt )
 
 !!$!!gm ERROR - potential BUG: sshn should not be modified at this stage !!   ssh_nxt not alrady called