Changeset 3636 for palm/trunk/SOURCE/calc_mean_profile.f90

Timestamp:

Dec 19, 2018 1:48:34 PM (5 years ago)

Author:

raasch

Message:

nopointer option removed

File:

• palm/trunk/SOURCE/calc_mean_profile.f90 (modified) (2 diffs)

palm/trunk/SOURCE/calc_mean_profile.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nopointer option removed
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! omp_get_thread_num now declared in openmp directive,
 ! unused variable removed
@@ -110 +113 @@
        INTEGER(iwp) ::  tn                 !<
        
-#if defined( __nopointer )
-       REAL(wp), DIMENSION(:,:,:) ::  var  !<
-#else
        REAL(wp), DIMENSION(:,:,:), POINTER ::  var
-#endif
 
 !