Ignore:
Timestamp:
Dec 19, 2018 1:48:34 PM (3 years ago)
Author:
raasch
Message:

nopointer option removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/calc_mean_profile.f90

    r3241 r3636  
    2525! -----------------
    2626! $Id$
     27! nopointer option removed
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! omp_get_thread_num now declared in openmp directive,
    2831! unused variable removed
     
    110113       INTEGER(iwp) ::  tn                 !<
    111114       
    112 #if defined( __nopointer )
    113        REAL(wp), DIMENSION(:,:,:) ::  var  !<
    114 #else
    115115       REAL(wp), DIMENSION(:,:,:), POINTER ::  var
    116 #endif
    117116
    118117!
Note: See TracChangeset for help on using the changeset viewer.