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/diffusion_s.f90

    r1002 r1010  
    44! Current revisions:
    55! ------------------
    6 !
     6! cpp switch __nopointer added for pointer free version
    77!
    88! Former revisions:
     
    7171       REAL    ::  wall_s_flux(0:4)
    7272       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     73#if defined( __nopointer )
     74       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s
     75#else
    7376       REAL, DIMENSION(:,:,:), POINTER ::  s
     77#endif
    7478
    7579       DO  i = nxl, nxr
     
    181185       REAL    ::  wall_s_flux(0:4)
    182186       REAL, DIMENSION(nysg:nyng,nxlg:nxrg) ::  s_flux_b, s_flux_t
     187#if defined( __nopointer )
     188       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  s
     189#else
    183190       REAL, DIMENSION(:,:,:), POINTER ::  s
     191#endif
    184192
    185193!
Note: See TracChangeset for help on using the changeset viewer.