Changeset 719 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- 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 16 16 USE dom_oce ! ocean space and time domain 17 17 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 19 21 USE sol_oce ! ocean elliptic solver 20 USE obc_oce ! Lateral open boundary condition21 USE phycst ! physical constant22 USE dynspg_flt ! surface pressure gradient23 22 USE solpcg ! preconditionned conjugate gradient solver 24 23 USE solsor ! Successive Over-relaxation solver … … 26 25 USE solsor_e ! Successive Over-relaxation solver with MPP optimization 27 26 USE solver 27 USE obc_oce ! Lateral open boundary condition 28 28 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 29 29 USE obcvol ! ocean open boundary condition (obc_vol routines) … … 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE cla_dynspg ! cross land advection 33 USE prtctl ! Print control 33 34 USE in_out_manager ! I/O manager 34 USE prtctl ! Print control35 35 USE solmat ! matrix construction for elliptic solvers 36 36 USE agrif_opa_interp 37 37 USE restart ! only for lrst_oce 38 38 USE iom ! I/O library 39 USE dynspg_flt ! surface pressure gradient 39 40 40 41 IMPLICIT NONE … … 48 49 !!---------------------------------------------------------------------- 49 50 !! OPA 9.0 , LOCEAN-IPSL (2005) 50 !! $ Id$51 !! $Header$ 51 52 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 52 53 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.