Changeset 432 for branches/GRISLIv3


Ignore:
Timestamp:
04/26/23 18:21:23 (15 months ago)
Author:
dumas
Message:

Update indentation of module runparam

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/GRISLIv3/SOURCES/runparam_mod.f90

    r252 r432  
    1313module runparam 
    1414 
    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 ... 
     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 ... 
    2424 
    25 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 
     25  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 
    3131 
    3232end module runparam 
Note: See TracChangeset for help on using the changeset viewer.