Ignore:
Timestamp:
Sep 20, 2012 7:59:54 AM (12 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/modules.f90

    r1004 r1010  
    44! Current revisions:
    55! -----------------
    6 !
     6! pointer free version can be generated with cpp switch __nopointer
    77!
    88! Former revisions:
     
    359359          v_m_s, w_m_l, w_m_n, w_m_r, w_m_s
    360360
     361#if defined( __nopointer )
     362    REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                             &
     363          e, e_p, p, prho, pt, pt_p, q, q_p, ql, ql_c, ql_v, ql_vp, rho, sa,   &
     364          sa_p, te_m, tpt_m, tq_m, tsa_m, tu_m, tv_m, tw_m, u, u_p, v, v_p,    &
     365          vpt, w, w_p
     366#else
    361367    REAL, DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                             &
    362368          e_1, e_2, e_3, p, prho_1, pt_1, pt_2, pt_3, q_1, q_2, q_3, ql_v,     &
     
    367373          e, e_p, prho, pt, pt_p, q, q_p, ql, ql_c, rho, sa, sa_p, te_m,       &
    368374          tpt_m, tq_m, tsa_m, tu_m, tv_m, tw_m, u, u_p, v, v_p, vpt, w, w_p
     375#endif
    369376
    370377    REAL, DIMENSION(:,:,:,:), ALLOCATABLE ::  rif_wall
     
    10211028
    10221029          CHARACTER (LEN=*), INTENT(IN)   ::  sk_char
     1030#if defined( __nopointer )
     1031          REAL, DIMENSION(:,:,:) ::  sk
     1032#else
    10231033          REAL, DIMENSION(:,:,:), POINTER ::  sk
    1024 
     1034#endif
    10251035       END SUBROUTINE advec_s_bc
    10261036
Note: See TracChangeset for help on using the changeset viewer.