Changeset 422 for branches/GRISLIv3

Timestamp:

04/24/23 13:53:42 (15 months ago)

Author:

dumas

Message:

Updating the file indentation of noisostaise_mod

File:

• branches/GRISLIv3/SOURCES/noisostasie_mod-0.3.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/noisostasie_mod-0.3.f90

@@ -11 +11 @@
 !<
 
-MODULE NOISOSTASIE_MOD
+module noisostasie_mod
 
-INTEGER :: NBED      !< permet de choisir quel type d'isostasie est utilise
-                     !< 0 rien, 1 relaxation
- 
+  integer :: nbed      !< permet de choisir quel type d'isostasie est utilise
+  !< 0 rien, 1 relaxation
 
-CONTAINS
-!> SUBROUTINE: init_iso
-!! Routine pour le choix d'utilisation ou non de l'isostasie 
-!>
-SUBROUTINE INIT_ISO
-  use iso_declar, only: dt_iso
-  implicit none
 
-  nbed = 0  ! pas d'isostasie
-  dt_iso = 50. ! pas de temps entre 2 appels a l'isostasie
+contains
+  !> SUBROUTINE: init_iso
+  !! Routine pour le choix d'utilisation ou non de l'isostasie 
+  !>
+  subroutine init_iso
+    use iso_declar, only: dt_iso
+    implicit none
 
-END SUBROUTINE INIT_ISO
-!> SUBROUTINE: bedrock
-!! Si la routine est vide pas d'isostasie 
-!>
-SUBROUTINE BEDROCK
-! la subroutine bedrock est vide : pas d'isostasie
-END SUBROUTINE BEDROCK
+    nbed = 0  ! pas d'isostasie
+    dt_iso = 50. ! pas de temps entre 2 appels a l'isostasie
 
-END MODULE NOISOSTASIE_MOD
+  end subroutine init_iso
+  !> SUBROUTINE: bedrock
+  !! Si la routine est vide pas d'isostasie 
+  !>
+  subroutine bedrock
+    ! la subroutine bedrock est vide : pas d'isostasie
+  end subroutine bedrock
+
+end module noisostasie_mod