Changeset 2858 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/declarations.f90
- Timestamp:
- 2011-09-26T10:54:50+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/declarations.f90
r2849 r2858 18 18 INTEGER, PUBLIC, PARAMETER :: numdctout=2 ! Unit for output file 19 19 20 INTEGER, PUBLIC :: jpidta,jpjdta,jpizoom,jpjzoom !dimensions des fichiers lus 21 INTEGER, PUBLIC :: jpi,jpj,jpiglo,jpjglo !dimensions du domaine 22 INTEGER, PUBLIC :: nlei,nlej,nlci,nlcj 20 INTEGER, PUBLIC :: jpi,jpj ! domain dimensions 23 21 INTEGER, PUBLIC :: nb_sec ! Number of section read in input file 24 22 INTEGER, PUBLIC :: nsecdebug = 0 ! Number of the section to debug 25 23 26 INTEGER, PUBLIC, DIMENSION(:) , ALLOCATABLE :: mig27 INTEGER, PUBLIC, DIMENSION(:) , ALLOCATABLE :: mjg28 24 REAL(wp), PUBLIC ,DIMENSION(:,:) , ALLOCATABLE :: glamf,gphif,glamt,gphit,e1t 29 ! REAL(wp), PUBLIC ,DIMENSION(:,:,:), ALLOCATABLE :: tmask30 25 INTEGER, PUBLIC ,DIMENSION(nb_sec_max) :: num_sec_debug 31 26 … … 54 49 zlay ! level classes (99 if you don't want) 55 50 REAL(wp) :: slopeSection ! coeff directeur de la section 56 INTEGER :: nb_point ! nb de points de la section51 INTEGER :: nb_point ! section's number of point 57 52 TYPE(POINT_SECTION),DIMENSION(nb_point_max) :: listPoint ! list of point in the section 58 53 END TYPE SECTION
Note: See TracChangeset
for help on using the changeset viewer.