Changeset 708 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2007-10-10T15:11:42+02:00 (17 years ago)

Author:

smasson

Message:

continue changeset:704, see ticket:5

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -20 +20 @@
    USE oce             ! ocean dynamics and tracers
    USE dom_oce         ! ocean space and time domain
+   USE sbc_oce         ! surface boundary condition: ocean
+   USE dynspg_oce      ! surface pressure gradient variables
    USE phycst          ! physical constants
-   USE ocesbc          ! ocean surface boundary condition
+   USE domvvl          ! variable volume
    USE obcdta          ! open boundary condition data     
    USE obcfla          ! Flather open boundary condition  
@@ -30 +32 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE prtctl          ! Print control
-   USE dynspg_oce      ! surface pressure gradient variables
    USE in_out_manager  ! I/O manager
    USE iom
    USE restart         ! only for lrst_oce
-   USE domvvl          ! variable volume
 
    IMPLICIT NONE