Changeset 2821


Ignore:
Timestamp:
Feb 20, 2018 11:05:08 AM (6 years ago)
Author:
knoop
Message:

Small fix in gust module interface to remove compiler warning

File:
1 edited

Legend:

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

    r2817 r2821  
    276276
    277277       CHARACTER (LEN=*), INTENT(IN)  ::  var         !<
    278        LOGICAL, INTENT(OUT)           ::  found       !<
    279        CHARACTER (LEN=*), INTENT(OUT) ::  grid_x      !<
    280        CHARACTER (LEN=*), INTENT(OUT) ::  grid_y      !<
    281        CHARACTER (LEN=*), INTENT(OUT) ::  grid_z      !<
     278       LOGICAL, INTENT(IN)           ::  found       !<
     279       CHARACTER (LEN=*), INTENT(IN) ::  grid_x      !<
     280       CHARACTER (LEN=*), INTENT(IN) ::  grid_y      !<
     281       CHARACTER (LEN=*), INTENT(IN) ::  grid_z      !<
    282282
    283283
Note: See TracChangeset for help on using the changeset viewer.