Changeset 1296 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS

Timestamp:

Jun 17, 2014, 10:59:19 AM (11 years ago)

Author:

aslmd

Message:

MESOSCALE. Fix to the metgrid.exe not compiling with ifort. Fix to a wrong website in build_static. Many thanks to L. Steele.

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/metgrid/src/process_domain_module.F90 (modified) (2 diffs)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WPS/metgrid/src/process_domain_module.F90

@@ -562 +562 @@
       real :: met_cen_lon, met_truelat1, met_truelat2
       logical :: is_wind_grid_rel, do_gcell_interp
-      integer, pointer, dimension(:) :: u_levels, v_levels
+      !! this is a fix for the following problem
+      !! "A pointer passed to DEALLOCATE points to an array that cannot be deallocated"
+      integer, pointer, dimension(:) :: u_levels => NULL(), v_levels => NULL()
       real, pointer, dimension(:,:) :: slab, data_count, halo_slab
       real, pointer, dimension(:,:,:) :: real_array
@@ -1670 +1672 @@
       call list_destroy(temp_levels)
       deallocate(headers)
+
+      !! this is a fix for the following problem
+      !! "A pointer passed to DEALLOCATE points to an array that cannot be deallocated"
+      print*,'done'
 
    end subroutine get_bottom_top_dim