Changeset 8

Timestamp:

11/07/14 11:39:31 (10 years ago)

Author:

sleclech

Message:

correction bug sur initialisation pointeurs

Location:

trunk/SOURCES

Files:

• Draggings_modules/beta_iter_vitbil_mod.f90 (modified) (1 diff)
• out_cptr_mod.f90 (modified) (1 diff)

trunk/SOURCES/Draggings_modules/beta_iter_vitbil_mod.f90

@@ -21 +21 @@
 
 
-  real*8, dimension(:,:),   pointer  :: tab  !< tableau 2d real ecrit dans le fichier pour lect ncdf
+  real*8, dimension(:,:),   pointer  :: tab => null() !< tableau 2d real ecrit dans le fichier pour lect ncdf
 
   real, dimension(nx,ny) :: Vcol_x           !< uniquement pour compatibilite

trunk/SOURCES/out_cptr_mod.f90

@@ -381 +381 @@
   character(len=80) :: filin
   integer ncid,status
-  real*8, dimension(:,:), pointer   :: tab             !< tableau 2d real ecrit dans le fichier
-  real*8, dimension(:,:,:), pointer :: tab1            !< tableau 3d real
-  real*8, dimension(:,:,:), pointer :: tab1T           !< tableau 3d real pour la temperature
+  real*8, dimension(:,:), pointer   :: tab => null()   !< tableau 2d real ecrit dans le fichier
+  real*8, dimension(:,:,:), pointer :: tab1 => null()  !< tableau 3d real
+  real*8, dimension(:,:,:), pointer :: tab1T => null() !< tableau 3d real pour la temperature
   character(len=20),dimension(3)    :: dimnames2d      !< dimensions pour netcdf pour tableau 2d pour les noeud majeur
   character(len=20),dimension(4)    :: dimnames3d      !< pour 3d troisieme dim est nz