Changeset 1010 for palm/trunk/SOURCE/swap_timelevel.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/swap_timelevel.f90 (modified) (4 diffs)

palm/trunk/SOURCE/swap_timelevel.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! cpp switch __nopointer added for pointer free version
 !
 ! Former revisions:
@@ -46 +46 @@
     IMPLICIT NONE
 
-
-    CALL cpu_log( log_point(28), 'swap_timelevel', 'start' )
-
 !
 !-- Incrementing timestep counter
@@ -55 +52 @@
 !
 !-- Swap of variables
+#if defined( __nopointer )
+    CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'start' )
+
+    u  = u_p
+    v  = v_p
+    w  = w_p
+    pt = pt_p
+    IF ( .NOT. constant_diffusion )  THEN
+       e = e_p
+    ENDIF
+    IF ( ocean )  THEN
+       sa = sa_p
+    ENDIF
+    IF ( humidity  .OR.  passive_scalar )  THEN
+       q = q_p
+    ENDIF
+
+    CALL cpu_log( log_point(28), 'swap_timelevel (nop)', 'stop' )
+#else
+    CALL cpu_log( log_point(28), 'swap_timelevel', 'start' )
+
     SELECT CASE ( MOD( timestep_count, 2 ) )
 
@@ -94 +112 @@
 
     CALL cpu_log( log_point(28), 'swap_timelevel', 'stop' )
+#endif
 
  END SUBROUTINE swap_timelevel