Changeset 2912 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

Mar 20, 2018 1:00:05 PM (6 years ago)

Author:

knoop

Message:

Added gust module interface calls to restart data modules

File:

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

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added gust module interface calls
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! Initial revision 
 !
@@ -80 +83 @@
            ONLY:  dx, dy
 
+       USE gust_mod,                                                           &
+           ONLY :  gust_module_enabled, gust_wrd_global
+
        USE indices,                                                            &
            ONLY:  nz, nx, ny
@@ -884 +890 @@
 !-- If required, write restart data for turbulence generator.
        IF ( syn_turb_gen )  CALL stg_wrd_global
+!
+!-- If required, write restart data for gust module.
+       IF ( gust_module_enabled )  CALL gust_wrd_global
 
 !
@@ -913 +922 @@
        USE chemistry_model_mod,                                                &
            ONLY:  chem_wrd_local
+
+       USE gust_mod,                                                           &
+           ONLY :  gust_module_enabled, gust_wrd_local
                 
        USE indices,                                                            &
@@ -1369 +1381 @@
 
 !
+!-- If required, write restart data for gust module.
+       IF ( gust_module_enabled )  THEN
+          CALL gust_wrd_local
+       ENDIF
+
+!
 !-- Write user-related restart data.
        CALL user_wrd_local