source: trunk/SOURCES/GrIce2sea_files/paradim-GrIce2sea-cut_Tamsin.f90 @ 4

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

initial import GRISLI trunk

File size: 1.3 KB
Line 
1!> \file paradim-GrIce2sea-378-591.f90
2!! Def des dimensions de la grille Groenland intersection Bamber-Aurelien
3!<
4
5!> \namespace grIce2sea_cut1
6!! Def des dimensions de la grille Groenland intersection Bamber-Aurelien
7!! \author Cat
8!! \date 11 oct 2011
9!! @note prescribe nx,ny,  dimension of most arrays
10!! for Groenland Ice2sea in 5 km
11!<
12
13module grIce2sea_cutT   
14
15implicit none
16
17! character
18character(len=7),  parameter  :: geoplace='GI2S_5T'
19character(len=53), parameter  :: dirnameinp='../INPUT/GrIce2sea-5km-cut-Tamsin/' !< input directory
20character(len=17), parameter  :: dirforcage='../INPUT/Forcage/'           !< input directory
21
22! dimensionnement grilles
23!-------------------------
24integer, parameter :: nx=301           !< dimension selon x (indice i)
25integer, parameter :: ny=561           !< dimension selon y (indice j)
26
27integer, parameter :: nlmin=561        !< min(nx,ny), pour matrice elliptique 
28integer, parameter :: nz=21            !< dimension selon z (indice k)
29integer, parameter :: nzm=4            !< nb de points verticaux dans le socle
30integer, parameter :: nn=199           !< pour les sorties
31
32
33! pas horizontal
34!-----------------
35real, parameter    :: dx=5000.0        !< pas en X en m
36real, parameter    :: dy=5000.0        !< pas en Y en m
37
38
39end module grIce2sea_cutT
Note: See TracBrowser for help on using the repository browser.