Ignore:
Timestamp:
10/22/14 10:49:32 (10 years ago)
Author:
sleclech
Message:

Modification initialisation pointeurs lecture NetCDF pour compatibilité avec ifort 13

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SOURCES/Netcdf-routines/io_netcdf_GRISLI.f90

    r4 r6  
    195195    else 
    196196       if( any(shape(tabvar)/=(/dim1,dim2/)) ) then            
    197           deallocate(tabvar)    
     197          tabvar => null() 
    198198          Allocate(tabvar(dim1,dim2))       
    199199       endif 
Note: See TracChangeset for help on using the changeset viewer.