New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 719 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90 – NEMO

Ignore:
Timestamp:
2007-10-16T16:59:56+02:00 (17 years ago)
Author:
ctlod
Message:

get back to the nemo_v2_3 version for trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r708 r719  
    2525   USE dom_oce         ! ocean space and time domain  
    2626   USE zdf_oce         ! ocean vertical physics 
    27    USE sbc_oce         ! surface boundary condition: ocean 
    28    USE obc_oce         ! Lateral open boundary condition 
     27   USE phycst          ! physical constants 
     28   USE ocesbc          ! ocean surface boundary condition 
     29   USE flxrnf          ! ocean runoffs 
    2930   USE sol_oce         ! ocean elliptic solver 
    30    USE phycst          ! physical constants 
    31    USE domvvl          ! variable volume 
    3231   USE solver          ! solver initialization 
    3332   USE solpcg          ! preconditionned conjugate gradient solver 
     
    3534   USE solfet          ! FETI solver 
    3635   USE solsor_e        ! Successive Over-relaxation solver with MPP optimization 
     36   USE obc_oce         ! Lateral open boundary condition 
    3737   USE obcdyn          ! ocean open boundary condition (obc_dyn routines) 
    3838   USE obcvol          ! ocean open boundary condition (obc_vol routines) 
    39    USE cla_dynspg      ! cross land advection 
    40    USE in_out_manager  ! I/O manager 
    4139   USE lib_mpp         ! distributed memory computing library 
    4240   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
     41   USE cla_dynspg      ! cross land advection 
    4342   USE prtctl          ! Print control 
    4443   USE solmat          ! matrix construction for elliptic solvers 
    4544   USE agrif_opa_interp 
     45   USE in_out_manager  ! I/O manager 
    4646   USE iom 
    4747   USE restart         ! only for lrst_oce 
     48   USE domvvl          ! variable volume 
    4849 
    4950   IMPLICIT NONE 
     
    5859   !!---------------------------------------------------------------------- 
    5960   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    60    !! $Id$ 
     61   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_flt.F90,v 1.14 2007/06/05 10:38:27 opalod Exp $  
    6162   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)  
    6263   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.