Changeset 465 for branches/GRISLIv3/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90

Timestamp:

01/26/24 10:24:00 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: start cleaning module3D

File:

• branches/GRISLIv3/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/Ant40_files/bmelt-ant-regions_mod.f90

@@ -50 +50 @@
     ! Cette routine fait l'initialisation pour la fusion basale.
     ! Elle est appelée par inputfile-vec-0.5.f90
-        
+
+    integer :: i,j
     real*8, dimension(:,:),   pointer    :: tab               !< tableau 2d real pointer
 
@@ -221 +222 @@
     ! cette routine calcule la fusion basale proprement dite
 
+    integer :: i,j           ! loop integers
     integer :: ngr           ! nombre de voisins flottants
     real :: coef_talus       ! pour ne pas changer la fusion au dessus de l'ocean profond