Changeset 2958 for palm

Timestamp:

Apr 11, 2018 3:38:13 PM (7 years ago)

Author:

suehring

Message:

Synchronize longitude and latitude between nested model domains (values are taken from the root model).

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Synchronize longitude and latitude between nested model domains, values are
+! taken from the root model.
+! 
+! 2955 2018-04-09 15:14:01Z suehring
 ! Extend checks for consistent setting of buildings, its ID and type. 
 ! Add log-points to measure CPU time of NetCDF data input.
@@ -560 +564 @@
 #endif
        ENDDO
+!
+!--    In case of nested runs, each model domain might have different longitude 
+!--    and latitude, which would result in different Coriolis parameters and 
+!--    sun-zenith angles. To avoid this, longitude and latitude in each model 
+!--    domain will be set to the values of the root model. Please note, this 
+!--    synchronization is required already here.
+#if defined( __parallel )
+       CALL MPI_BCAST( init_model%latitude, 1, MPI_REAL, 0,                    &
+                       MPI_COMM_WORLD, ierr )
+       CALL MPI_BCAST( init_model%longitude, 1, MPI_REAL, 0,                   &
+                       MPI_COMM_WORLD, ierr )
+#endif
+
 
     END SUBROUTINE netcdf_data_input_init