source: trunk/SOURCES/Hudson_files/paradim-hudson_mod.f90 @ 334

Last change on this file since 334 was 4, checked in by dumas, 10 years ago

initial import GRISLI trunk
File size: 632 bytes
Line 
1! module de dimensionnement
2! pour Heino.
3
4module module_Hudson
5
6implicit none
7
8
9
10 character(len=7), parameter ::  geoplace ='hudson1'
11
12 character(len=16), parameter  :: DIRNAMEINP='../INPUT/HUDSON/' ! input directory
13 character(len=17), parameter  :: dirforcage='../INPUT/Forcage/' ! input directory
14
15 integer, parameter :: NX=151,NY=151
16 integer, parameter :: NZ=21,NZM=4,NN=151
17 integer, parameter :: nlmin=151        ! min(nx,ny), pour matrice elliptique
18
19 real,parameter :: dx=40000.0   ! pas selon x
20 real,parameter :: dy=40000.0   ! pas selon y
21
22
23 INTEGER :: nbx = nx - 1
24 INTEGER :: nby = ny - 1
25
26
27end module module_Hudson
Note: See TracBrowser for help on using the repository browser.