Changeset 3641 for palm/trunk/SOURCE/module_interface.f90

Timestamp:

Dec 23, 2018 10:10:01 PM (6 years ago)

Author:

knoop

Message:

Small change to gust_mod interface data_output calls

File:

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

palm/trunk/SOURCE/module_interface.f90

@@ -695 +695 @@
    CHARACTER (LEN=*), INTENT(IN)  ::  variable !< variable name
    LOGICAL,           INTENT(OUT) ::  found    !< flag if output variable is found
-   CHARACTER (LEN=*), INTENT(OUT) ::  grid     !< name of vertical grid
+   CHARACTER (LEN=*), INTENT(INOUT) ::  grid     !< name of vertical grid
    CHARACTER (LEN=*), INTENT(IN)  ::  mode     !< either 'xy', 'xz' or 'yz'
    LOGICAL,           INTENT(OUT) ::  two_d    !< flag for 2D variables
@@ -725 +725 @@
    IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
       CALL gust_data_output_2d(                                                &
-              av, variable, found, grid, local_pf, two_d, nzb_do, nzt_do       &
+              av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do, fill_value &
            )
    ENDIF
@@ -799 +799 @@
 
    IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
-      CALL gust_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
+      CALL gust_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do )
       resorted = .TRUE.
    ENDIF