Changeset 2797 for branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90

Timestamp:

2011-07-11T12:53:56+02:00 (13 years ago)

Author:

davestorkey

Message:

Delete BDY module and first implementation of new OBC module.

1. Initial restructuring.
2. Use fldread to read open boundary data.

File:

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

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

@@ -15 +15 @@
    USE dom_oce        ! ocean space and time domain variables
    USE phycst         ! physical constants
-   USE obc_oce        ! ocean open boundary conditions
    USE sbc_oce        ! surface boundary condition: ocean
    USE sbcapr         ! surface boundary condition: atmospheric pressure
@@ -222 +221 @@
       ENDIF
 
-#if defined key_obc
-      !                        ! Conservation of ocean volume (key_dynspg_flt)
-      IF( lk_dynspg_flt )   ln_vol_cst = .true.
-
-      !                        ! Application of Flather's algorithm at open boundaries
-      IF( lk_dynspg_flt )   ln_obc_fla = .false.
-      IF( lk_dynspg_exp )   ln_obc_fla = .true.
-      IF( lk_dynspg_ts  )   ln_obc_fla = .true.
-#endif
       !
    END SUBROUTINE dyn_spg_init