Changeset 2817 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Feb 19, 2018 4:32:21 PM (7 years ago)

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2797 2018-02-08 13:24:35Z suehring
 ! Enable restarts for land- and urban-surface variables ghf_av, r_a_av and 
 ! tsurf_av.
@@ -171 +174 @@
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point_s
+
+    USE gust_mod,                                                              &
+        ONLY :  gust_module_enabled, gust_read_restart_data
 
     USE indices,                                                               &
@@ -1105 +1111 @@
 
        ENDDO  ! loop over variables
+
+!
+!--    Read gust model restart data
+       IF ( gust_module_enabled )  THEN
+          CALL gust_read_restart_data
+       ENDIF
 !
 !--    Read surface related variables