Changeset 4429 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Feb 27, 2020 3:24:30 PM (4 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

• palm/trunk/SOURCE/surface_coupler.f90 (modified) (9 diffs)

palm/trunk/SOURCE/surface_coupler.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: preprocessor directives rearranged for serial mode
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -38 +41 @@
 !------------------------------------------------------------------------------!
  SUBROUTINE surface_coupler
+#if defined( __parallel )
  
 
@@ -78 +82 @@
     REAL(wp), DIMENSION(nysg:nyng,nxlg:nxrg) ::  surface_flux !< dummy array for surface fluxes on 2D grid
 
-
-#if defined( __parallel )
 
     CALL cpu_log( log_point(39), 'surface_coupler', 'start' )
@@ -454 +456 @@
     CALL cpu_log( log_point(39), 'surface_coupler', 'stop' )
 
-#endif
 
      CONTAINS 
@@ -613 +614 @@
         END SUBROUTINE transfer_2D_to_1D_unequal
 
+#endif
   END SUBROUTINE surface_coupler
 
@@ -622 +624 @@
 !> @todo Missing subroutine description.
 !------------------------------------------------------------------------------!
+#if defined( __parallel )
+
   SUBROUTINE interpolate_to_atmos( tag )
-
-#if defined( __parallel )
 
     USE arrays_3d,                                                             &
@@ -701 +703 @@
     CALL MPI_BARRIER( comm2d, ierr )
 
+  END SUBROUTINE interpolate_to_atmos
+
 #endif
-
-  END SUBROUTINE interpolate_to_atmos
 
 
@@ -711 +713 @@
 !> @todo Missing subroutine description.
 !------------------------------------------------------------------------------!
+#if defined( __parallel )
+
   SUBROUTINE interpolate_to_ocean( tag )
-
-#if defined( __parallel )
 
     USE arrays_3d,                                                             &
@@ -786 +788 @@
     CALL MPI_BARRIER( comm2d, ierr )  
 
+  END SUBROUTINE interpolate_to_ocean
+
 #endif
-
-  END SUBROUTINE interpolate_to_ocean