Ignore:
Timestamp:
Dec 23, 2018 10:10:01 PM (5 years ago)
Author:
knoop
Message:

Small change to gust_mod interface data_output calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r3637 r3641  
    695695   CHARACTER (LEN=*), INTENT(IN)  ::  variable !< variable name
    696696   LOGICAL,           INTENT(OUT) ::  found    !< flag if output variable is found
    697    CHARACTER (LEN=*), INTENT(OUT) ::  grid     !< name of vertical grid
     697   CHARACTER (LEN=*), INTENT(INOUT) ::  grid     !< name of vertical grid
    698698   CHARACTER (LEN=*), INTENT(IN)  ::  mode     !< either 'xy', 'xz' or 'yz'
    699699   LOGICAL,           INTENT(OUT) ::  two_d    !< flag for 2D variables
     
    725725   IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
    726726      CALL gust_data_output_2d(                                                &
    727               av, variable, found, grid, local_pf, two_d, nzb_do, nzt_do      &
     727              av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do, fill_value &
    728728           )
    729729   ENDIF
     
    799799
    800800   IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
    801       CALL gust_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
     801      CALL gust_data_output_3d( av, variable, found, local_pf, fill_value, nzb_do, nzt_do )
    802802      resorted = .TRUE.
    803803   ENDIF
Note: See TracChangeset for help on using the changeset viewer.