Changeset 3806 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Mar 21, 2019 12:45:50 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3770 r3806 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix: intent of dummy arguments changed to inout 28 ! 29 ! 3770 2019-02-28 11:22:32Z moh.hefny 27 30 ! removed unused variables in module_interface_check_data_output_ts 28 31 ! … … 1120 1123 1121 1124 1122 LOGICAL, INTENT(OUT) :: found !< flag if variable was found1125 LOGICAL, INTENT(INOUT) :: found !< flag if variable was found 1123 1126 1124 1127 IF ( .NOT. found ) CALL bio_rrd_global( found ) ! ToDo: change interface to pass variable … … 1171 1174 1172 1175 1173 INTEGER(iwp), 1174 INTEGER(iwp), 1175 INTEGER(iwp), 1176 INTEGER(iwp), 1177 INTEGER(iwp), 1178 INTEGER(iwp), 1179 INTEGER(iwp), 1180 INTEGER(iwp), 1181 INTEGER(iwp), 1182 INTEGER(iwp), 1183 INTEGER(iwp), 1184 INTEGER(iwp), 1185 INTEGER(iwp), 1186 LOGICAL, INTENT(OUT) :: found !< flag if variable was found1176 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 1187 1190 1188 1191 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.