source: trunk/SOURCES/Eurasie_files/paradim-eurasie10_mod.f90 @ 304

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

Bug in dirnameinp variable length for eurasie

File size: 1.2 KB
Line 
1!> \file paradim-eurasie10_mod.f90
2!! Def des dimensions de la grille eurasie 10 km 
3!<
4
5!> \namespace module_eurasie
6!! Def des dimensions de la grille eurasie a 10 km 
7!! \author ...
8!! \date ...
9!<
10
11
12module module_eurasie10
13 
14  implicit none
15
16  character(len=7), parameter :: geoplace='euras10'    ! geoplace
17  character(len=19), parameter  :: dirnameinp='../INPUT/EURASIE10/' ! input directory
18  character(len=17), parameter  :: dirforcage='../INPUT/Forcage/' ! input directory
19
20! dimensionnement grilles
21!-------------------------
22  integer, parameter :: nx=353           !< dimension selon x (indice i)
23  integer, parameter :: ny=513           !< dimension selon y (indice j)
24  integer, parameter :: nlmin=353        !< min(nx,ny), pour matrice elliptique 
25  integer, parameter :: nz=21            !< dimension selon z (indice k)
26  integer, parameter :: nzm=4            !< nb de points verticaux dans le socle
27  integer, parameter :: nn=513           !< pour des sorties
28!cdc integer, parameter :: nx1=nx-1,ny1=ny-1,nz1=nz-1
29
30
31! pas horizontal
32!-----------------
33  real, parameter :: dx=10000.0             !< pas en X en m
34  real, parameter :: dy=10000.0             !< pas en Y en m
35
36
37end module module_eurasie10
Note: See TracBrowser for help on using the repository browser.