Changeset 8 for trunk/SOURCES/out_cptr_mod.f90

Timestamp:

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

Author:

sleclech

Message:

correction bug sur initialisation pointeurs

File:

• trunk/SOURCES/out_cptr_mod.f90 (modified) (1 diff)

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