Changeset 31 for branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

Timestamp:

12/17/15 17:53:06 (9 years ago)

Author:

dumas

Message:

merge branche iLoveclim avec trunk r29

File:

• branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (3 diffs)

branches/iLoveclim/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -114 +114 @@
   integer,dimension(:),allocatable :: num_ncdf_file          !< compteur des fichiers netcdf par class  
 
-  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
 
 
@@ -653 +653 @@
     real (kind=kind(0.d0)) ::  timetmp                   !< variable intermediaire
     character(len=20) :: nametmp                         !< nom intermediaire
-    real*8,pointer,dimension(:) :: liste_time => null()  !< liste des snapshot des variables ecrites en netcdf 
-    real*8,pointer,dimension(:) :: x,y,x1,y1,z,nzzm    
-    real*8,pointer,dimension(:,:):: lat,lon 
+    real*8,pointer,dimension(:) :: liste_time => null()  !< liste des snapshot des variables ecrites en netcdf
+    real*8,pointer,dimension(:) :: x,y,x1,y1,z,nzzm   
+    real*8,pointer,dimension(:,:):: lat,lon => null()
     integer :: i,j,l,k,p
     logical :: fait 
@@ -674 +674 @@
        nametmp = 'f_'
     endif
-
-    allocate(tab(nx,ny),tab1(nx,ny,nz),tab1T(nx,ny,nz+nzm))
+    
+    if (.not.associated(tab)) allocate(tab(nx,ny))
+    if (.not.associated(tab1)) allocate(tab1(nx,ny,nz))
+    if (.not.associated(tab1T)) allocate(tab1T(nx,ny,nz+nzm))
 
     if (.not.associated(liste_time)) then