Changeset 2821 for palm

Timestamp:

Feb 20, 2018 11:05:08 AM (7 years ago)

Author:

knoop

Message:

Small fix in gust module interface to remove compiler warning

File:

• palm/trunk/SOURCE/gust_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/gust_mod.f90

@@ -276 +276 @@
 
        CHARACTER (LEN=*), INTENT(IN)  ::  var         !<
-       LOGICAL, INTENT(OUT)           ::  found       !<
-       CHARACTER (LEN=*), INTENT(OUT) ::  grid_x      !<
-       CHARACTER (LEN=*), INTENT(OUT) ::  grid_y      !<
-       CHARACTER (LEN=*), INTENT(OUT) ::  grid_z      !<
+       LOGICAL, INTENT(IN)           ::  found       !<
+       CHARACTER (LEN=*), INTENT(IN) ::  grid_x      !<
+       CHARACTER (LEN=*), INTENT(IN) ::  grid_y      !<
+       CHARACTER (LEN=*), INTENT(IN) ::  grid_z      !<