Changeset 2865 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obcdyn2d.F90

Timestamp:

2011-09-27T14:33:01+02:00 (13 years ago)

Author:

davestorkey

Message:

1. Updates for dynspg_exp option.
2. Implement time_offset functionality in obc_dta.
3. Add option to specify boundaries in the namelist.
4. Re-activate obc_vol option.
5. Update to namelist control of tidal harmonics.

File:

• branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obcdyn2d.F90 (modified) (3 diffs)

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

@@ -55 +55 @@
             CYCLE
          CASE(jp_frs)
-            CALL obc_dyn2d_frs( idx_obc(ib_obc), dta_obc(ib_obc), kt )
+            CALL obc_dyn2d_frs( idx_obc(ib_obc), dta_obc(ib_obc) )
          CASE(jp_flather)
             CALL obc_dyn2d_fla( idx_obc(ib_obc), dta_obc(ib_obc) )
@@ -65 +65 @@
    END SUBROUTINE obc_dyn2d
 
-   SUBROUTINE obc_dyn2d_frs( idx, dta, kt )
+   SUBROUTINE obc_dyn2d_frs( idx, dta )
       !!----------------------------------------------------------------------
       !!                  ***  SUBROUTINE obc_dyn2d_frs  ***
@@ -76 +76 @@
       !!               topography. Tellus, 365-382.
       !!----------------------------------------------------------------------
-      INTEGER,         INTENT(in) ::   kt
       TYPE(OBC_INDEX), INTENT(in) ::   idx  ! OBC indices
       TYPE(OBC_DATA),  INTENT(in) ::   dta  ! OBC external data