Changeset 371 for trunk/NEMO/OPA_SRC/DYN

Timestamp:

2005-12-29T11:44:30+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_036 : CT : auto-tasking version of the time splitting & explicit surface pressure gradient

Location:

trunk/NEMO/OPA_SRC/DYN

Files:

• dynspg_exp.F90 (modified) (1 diff)
• dynspg_exp_jki.F90 (added)
• dynspg_ts.F90 (modified) (2 diffs)
• dynspg_ts_jki.F90 (added)

trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90

@@ -20 +20 @@
    USE ocesbc          ! ocean surface boundary condition
    USE obc_oce         ! Lateral open boundary condition
+   USE obc_par         ! open boundary condition parameters
    USE obcdta          ! open boundary condition data     (obc_dta_bt routine)
    USE lib_mpp         ! distributed memory computing library

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -21 +21 @@
    USE dynvor          ! vorticity term
    USE obc_oce         ! Lateral open boundary condition
+   USE obc_par         ! open boundary condition parameters
    USE lib_mpp         ! distributed memory computing library
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
@@ -401 +402 @@
          !         - Update sea surface height on each open boundary
          !         - Correct the barotropic transports
-         IF( lk_obc )   CALL obc_fla_ts( kt )
+         IF( lk_obc )   CALL obc_fla_ts