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_jki.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_jki.F90

    • Property svn:keywords changed from Id to Author Date Id Revision
    r708 r719  
    1616   USE dom_oce         ! ocean space and time domain 
    1717   USE zdf_oce         ! ocean vertical physics 
    18    USE sbc_oce         ! surface boundary condition: ocean 
     18   USE phycst          ! physical constant 
     19   USE ocesbc          ! Ocean Surface Boundary condition 
     20   USE flxrnf          ! ocean runoffs 
    1921   USE sol_oce         ! ocean elliptic solver 
    20    USE obc_oce         ! Lateral open boundary condition 
    21    USE phycst          ! physical constant 
    22    USE dynspg_flt      ! surface pressure gradient 
    2322   USE solpcg          ! preconditionned conjugate gradient solver 
    2423   USE solsor          ! Successive Over-relaxation solver 
     
    2625   USE solsor_e        ! Successive Over-relaxation solver with MPP optimization 
    2726   USE solver 
     27   USE obc_oce         ! Lateral open boundary condition 
    2828   USE obcdyn          ! ocean open boundary condition (obc_dyn routines) 
    2929   USE obcvol          ! ocean open boundary condition (obc_vol routines) 
     
    3131   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    3232   USE cla_dynspg      ! cross land advection 
     33   USE prtctl          ! Print control 
    3334   USE in_out_manager  ! I/O manager 
    34    USE prtctl          ! Print control 
    3535   USE solmat          ! matrix construction for elliptic solvers 
    3636   USE agrif_opa_interp 
    3737   USE restart         ! only for lrst_oce 
    3838   USE iom             ! I/O library 
     39   USE dynspg_flt      ! surface pressure gradient 
    3940 
    4041   IMPLICIT NONE 
     
    4849   !!---------------------------------------------------------------------- 
    4950   !!   OPA 9.0 , LOCEAN-IPSL (2005)  
    50    !! $Id$ 
     51   !! $Header$  
    5152   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    5253   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.