Changeset 3371 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Oct 18, 2018 1:40:12 PM (6 years ago)

Author:

knoop

Message:

Bugfix: error in placements of CPP statement nopointer fixed

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -342 +342 @@
  MODULE urban_surface_mod
 
+    USE arrays_3d,                                                             &
 #if ! defined( __nopointer )
-    USE arrays_3d,                                                             &
-        ONLY:  dzu, hyp, zu, pt, pt_1, pt_2, p, u, v, w, hyp, tend, exner
+        ONLY:  hyp, zu, pt, p, u, v, w, tend, exner
+#else
+        ONLY:  hyp,     pt,    u, v, w, tend, exner
 #endif
 
@@ -6453 +6455 @@
                                         end_index_on_file ,                    &
                                         nxlc, nysc,                            &
+                                        nxlf, nxrf, nysf, nynf,                &
                                         nys_on_file, nyn_on_file,              &
                                         nxl_on_file, nxr_on_file )
@@ -6618 +6621 @@
                 CALL surface_restore_elements(                                 &
                                         t_green_v(1)%t, tmp_green_v(1)%t,      &
-                                        surf_usm_v(1)%start_index,             & 
+                                        surf_usm_v(1)%start_index,             &
                                         start_index_on_file,                   &
-                                        end_index_on_file ,                    &
+                                        end_index_on_file,                     &
                                         nxlc, nysc,                            &
+                                        nxlf, nxrf, nysf, nynf,                &
                                         nys_on_file, nyn_on_file,              &
                                         nxl_on_file,nxr_on_file )
@@ -6633 +6637 @@
                 CALL surface_restore_elements(                                 &
                                         t_green_v_1(1)%t, tmp_green_v(1)%t,    &
-                                        surf_usm_v(1)%start_index,             & 
+                                        surf_usm_v(1)%start_index,             &
                                         start_index_on_file,                   &
                                         end_index_on_file,                     &
@@ -6790 +6794 @@
                                         surf_usm_v(1)%start_index,             & 
                                         start_index_on_file,                   &
-                                        end_index_on_file ,                    &
+                                        end_index_on_file,                     &
                                         nxlc, nysc,                            &
+                                        nxlf, nxrf, nysf, nynf,                &
                                         nys_on_file, nyn_on_file,              &
                                         nxl_on_file, nxr_on_file )