- Timestamp:
- 04/26/23 18:21:23 (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/GRISLIv3/SOURCES/runparam_mod.f90
r252 r432 13 13 module runparam 14 14 15 implicit none16 integer :: NT=0 !< boucle temporelle, initialise a 017 real :: xmin,xmax,ymin,ymax !< bornes du domaine en km18 real :: TBEGIN !< temps debut19 real :: TEND !< temps fin20 real :: dttest !< plus petit pas de temps=dtmin, sert dans plein de tests21 character(len=40) :: DIRNAMEOUT !< declaration du dir de sortie, pour les resultats22 character(len=8) :: RUNNAME !<23 character(len=40) :: dirsource !< declaration du dir sources pour les fichiers parametres ...15 implicit none 16 integer :: NT=0 !< boucle temporelle, initialise a 0 17 real :: xmin,xmax,ymin,ymax !< bornes du domaine en km 18 real :: TBEGIN !< temps debut 19 real :: TEND !< temps fin 20 real :: dttest !< plus petit pas de temps=dtmin, sert dans plein de tests 21 character(len=40) :: DIRNAMEOUT !< declaration du dir de sortie, pour les resultats 22 character(len=8) :: RUNNAME !< 23 character(len=40) :: dirsource !< declaration du dir sources pour les fichiers parametres ... 24 24 25 integer :: itracebug !< si 1 fait une impression au début des routines26 integer :: num_tracebug !< numero de l'unite itracebug27 real tgrounded28 real dtsortie29 real dtcpt30 real dtprofile25 integer :: itracebug !< si 1 fait une impression au début des routines 26 integer :: num_tracebug !< numero de l'unite itracebug 27 real tgrounded 28 real dtsortie 29 real dtcpt 30 real dtprofile 31 31 32 32 end module runparam
Note: See TracChangeset
for help on using the changeset viewer.