Changeset 1010 for palm/trunk/SOURCE/advec_ws.f90

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:

• palm/trunk/SOURCE/advec_ws.f90 (modified) (3 diffs)

palm/trunk/SOURCE/advec_ws.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
+! cpp switch __nopointer added for pointer free version
 !
 ! Former revisions:
@@ -280 +281 @@
                    ibit7, ibit8, i_omp, j, k, k_mm, k_pp, k_ppp,  tn
        REAL    ::  diss_d, div, flux_d, u_comp, v_comp
-       REAL, DIMENSION(:,:,:), POINTER    :: sk
-       REAL, DIMENSION(nzb:nzt+1)         :: diss_n, diss_r, diss_t, flux_n,  &
-                                             flux_r, flux_t
-       REAL, DIMENSION(nzb+1:nzt,0:threads_per_task-1) :: swap_diss_y_local,  &
-                                                          swap_flux_y_local
-       REAL, DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) ::             &
-                                                          swap_diss_x_local,  &
+#if defined( __nopointer )
+       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
+#else
+       REAL, DIMENSION(:,:,:), POINTER    ::  sk
+#endif
+       REAL, DIMENSION(nzb:nzt+1)         ::  diss_n, diss_r, diss_t, flux_n,  &
+                                              flux_r, flux_t
+       REAL, DIMENSION(nzb+1:nzt,0:threads_per_task-1) ::  swap_diss_y_local,  &
+                                                           swap_flux_y_local
+       REAL, DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) ::              &
+                                                          swap_diss_x_local,   &
                                                           swap_flux_x_local
-       CHARACTER (LEN = *), INTENT(IN)    :: sk_char
+       CHARACTER (LEN = *), INTENT(IN)    ::  sk_char
 
 !
@@ -1930 +1935 @@
        INTEGER ::  i, ibit0, ibit1, ibit2, ibit3, ibit4, ibit5, ibit6,        &
                    ibit7, ibit8, j, k, k_mm, k_pp, k_ppp, tn = 0
+#if defined( __nopointer )
+       REAL, DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  sk
+#else
        REAL, DIMENSION(:,:,:), POINTER ::  sk
-       REAL    :: diss_d, div, flux_d, u_comp, v_comp
-       REAL, DIMENSION(nzb:nzt)   :: diss_n, diss_r, diss_t, flux_n, flux_r,  &
-                                     flux_t
-       REAL, DIMENSION(nzb+1:nzt) :: swap_diss_y_local, swap_flux_y_local
-       REAL, DIMENSION(nzb+1:nzt,nys:nyn) :: swap_diss_x_local,               &
-                                             swap_flux_x_local
-       CHARACTER (LEN = *), INTENT(IN)    :: sk_char
+#endif
+       REAL ::  diss_d, div, flux_d, u_comp, v_comp
+       REAL, DIMENSION(nzb:nzt)   ::  diss_n, diss_r, diss_t, flux_n, flux_r,  &
+                                      flux_t
+       REAL, DIMENSION(nzb+1:nzt) ::  swap_diss_y_local, swap_flux_y_local
+       REAL, DIMENSION(nzb+1:nzt,nys:nyn) ::  swap_diss_x_local,               &
+                                              swap_flux_x_local
+       CHARACTER (LEN = *), INTENT(IN)    ::  sk_char
 
 !