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_ws.f90

    r889 r1010  
    44! Current revisions:
    55! ------------------
     6! cpp switch __nopointer added for pointer free version
    67!
    78! Former revisions:
     
    280281                   ibit7, ibit8, i_omp, j, k, k_mm, k_pp, k_ppp,  tn
    281282       REAL    ::  diss_d, div, flux_d, u_comp, v_comp
    282        REAL, DIMENSION(:,:,:), POINTER    :: sk
    283        REAL, DIMENSION(nzb:nzt+1)         :: diss_n, diss_r, diss_t, flux_n,  &
    284                                              flux_r, flux_t
    285        REAL, DIMENSION(nzb+1:nzt,0:threads_per_task-1) :: swap_diss_y_local,  &
    286                                                           swap_flux_y_local
    287        REAL, DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) ::             &
    288                                                           swap_diss_x_local,  &
     283#if defined( __nopointer )
     284       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
     285#else
     286       REAL, DIMENSION(:,:,:), POINTER    ::  sk
     287#endif
     288       REAL, DIMENSION(nzb:nzt+1)         ::  diss_n, diss_r, diss_t, flux_n,  &
     289                                              flux_r, flux_t
     290       REAL, DIMENSION(nzb+1:nzt,0:threads_per_task-1) ::  swap_diss_y_local,  &
     291                                                           swap_flux_y_local
     292       REAL, DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) ::              &
     293                                                          swap_diss_x_local,   &
    289294                                                          swap_flux_x_local
    290        CHARACTER (LEN = *), INTENT(IN)    :: sk_char
     295       CHARACTER (LEN = *), INTENT(IN)    ::  sk_char
    291296
    292297!
     
    19301935       INTEGER ::  i, ibit0, ibit1, ibit2, ibit3, ibit4, ibit5, ibit6,        &
    19311936                   ibit7, ibit8, j, k, k_mm, k_pp, k_ppp, tn = 0
     1937#if defined( __nopointer )
     1938       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
     1939#else
    19321940       REAL, DIMENSION(:,:,:), POINTER ::  sk
    1933        REAL    :: diss_d, div, flux_d, u_comp, v_comp
    1934        REAL, DIMENSION(nzb:nzt)   :: diss_n, diss_r, diss_t, flux_n, flux_r,  &
    1935                                      flux_t
    1936        REAL, DIMENSION(nzb+1:nzt) :: swap_diss_y_local, swap_flux_y_local
    1937        REAL, DIMENSION(nzb+1:nzt,nys:nyn) :: swap_diss_x_local,               &
    1938                                              swap_flux_x_local
    1939        CHARACTER (LEN = *), INTENT(IN)    :: sk_char
     1941#endif
     1942       REAL ::  diss_d, div, flux_d, u_comp, v_comp
     1943       REAL, DIMENSION(nzb:nzt)   ::  diss_n, diss_r, diss_t, flux_n, flux_r,  &
     1944                                      flux_t
     1945       REAL, DIMENSION(nzb+1:nzt) ::  swap_diss_y_local, swap_flux_y_local
     1946       REAL, DIMENSION(nzb+1:nzt,nys:nyn) ::  swap_diss_x_local,               &
     1947                                              swap_flux_x_local
     1948       CHARACTER (LEN = *), INTENT(IN)    ::  sk_char
    19401949
    19411950!
Note: See TracChangeset for help on using the changeset viewer.