Ignore:
Timestamp:
Sep 20, 2012 7:59:54 AM (9 years ago)
Author:
raasch
Message:

pointer free version can be generated with cpp switch nopointer

File:
1 edited

Legend:

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

    r484 r1010  
    44! Current revisions:
    55! -----------------
    6 !
     6! cpp switch __nopointer added for pointer free version
    77!
    88! Former revisions:
     
    5757       INTEGER ::  i, j, k
    5858
     59#if defined( __nopointer )
     60       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
     61#else
    5962       REAL, DIMENSION(:,:,:), POINTER ::  sk
     63#endif
    6064 
    6165
     
    9498       INTEGER ::  i, j, k
    9599
     100#if defined( __nopointer )
     101       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
     102#else
    96103       REAL, DIMENSION(:,:,:), POINTER ::  sk
     104#endif
    97105
    98106
Note: See TracChangeset for help on using the changeset viewer.