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

Timestamp:

2008-04-11T19:05:03+02:00 (16 years ago)

Author:

ctlod

Message:

merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113

File:

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

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -21 +21 @@
    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  
@@ -31 +33 @@
    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
@@ -52 +52 @@
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_ts.F90,v 1.16 2007/06/05 10:38:27 opalod Exp $ 
+   !! $Id$
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------