Ignore:
Timestamp:
Mar 21, 2019 12:45:50 PM (5 years ago)
Author:
raasch
Message:

bugfix: intent of dummy arguments changed to inout, additional check for lateral boundary conditions added

File:
1 edited

Legend:

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

    r3770 r3806  
    2525! -----------------
    2626! $Id$
     27! bugfix: intent of dummy arguments changed to inout
     28!
     29! 3770 2019-02-28 11:22:32Z moh.hefny
    2730! removed unused variables in module_interface_check_data_output_ts
    2831!
     
    11201123
    11211124
    1122     LOGICAL,           INTENT(OUT) ::  found    !< flag if variable was found
     1125    LOGICAL, INTENT(INOUT) ::  found    !< flag if variable was found
    11231126
    11241127    IF ( .NOT. found )  CALL bio_rrd_global( found ) ! ToDo: change interface to pass variable
     
    11711174
    11721175
    1173     INTEGER(iwp),      INTENT(IN)  ::  map_index    !<
    1174     INTEGER(iwp),      INTENT(IN)  ::  nxlc         !<
    1175     INTEGER(iwp),      INTENT(IN)  ::  nxlf         !<
    1176     INTEGER(iwp),      INTENT(IN)  ::  nxl_on_file  !<
    1177     INTEGER(iwp),      INTENT(IN)  ::  nxrc         !<
    1178     INTEGER(iwp),      INTENT(IN)  ::  nxrf         !<
    1179     INTEGER(iwp),      INTENT(IN)  ::  nxr_on_file  !<
    1180     INTEGER(iwp),      INTENT(IN)  ::  nync         !<
    1181     INTEGER(iwp),      INTENT(IN)  ::  nynf         !<
    1182     INTEGER(iwp),      INTENT(IN)  ::  nyn_on_file  !<
    1183     INTEGER(iwp),      INTENT(IN)  ::  nysc         !<
    1184     INTEGER(iwp),      INTENT(IN)  ::  nysf         !<
    1185     INTEGER(iwp),      INTENT(IN)  ::  nys_on_file  !<
    1186     LOGICAL,           INTENT(OUT) ::  found        !< flag if variable was found
     1176    INTEGER(iwp), INTENT(IN)  ::  map_index    !<
     1177    INTEGER(iwp), INTENT(IN)  ::  nxlc         !<
     1178    INTEGER(iwp), INTENT(IN)  ::  nxlf         !<
     1179    INTEGER(iwp), INTENT(IN)  ::  nxl_on_file  !<
     1180    INTEGER(iwp), INTENT(IN)  ::  nxrc         !<
     1181    INTEGER(iwp), INTENT(IN)  ::  nxrf         !<
     1182    INTEGER(iwp), INTENT(IN)  ::  nxr_on_file  !<
     1183    INTEGER(iwp), INTENT(IN)  ::  nync         !<
     1184    INTEGER(iwp), INTENT(IN)  ::  nynf         !<
     1185    INTEGER(iwp), INTENT(IN)  ::  nyn_on_file  !<
     1186    INTEGER(iwp), INTENT(IN)  ::  nysc         !<
     1187    INTEGER(iwp), INTENT(IN)  ::  nysf         !<
     1188    INTEGER(iwp), INTENT(IN)  ::  nys_on_file  !<
     1189    LOGICAL,      INTENT(INOUT) ::  found        !< flag if variable was found
    11871190
    11881191    REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp), INTENT(OUT) :: tmp_2d   !<
Note: See TracChangeset for help on using the changeset viewer.