Changeset 3767 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Feb 27, 2019 8:18:02 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3766 r3767 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variable file_index removed from subroutine parameter list 28 ! 29 ! 3766 2019-02-26 16:23:41Z raasch 27 30 ! first argument removed from module_interface_rrd_*, statement added to avoid 28 31 ! compiler warning about unused variable, file reformatted with respect to coding … … 1157 1160 !> Read module-specific restart data specific to local MPI ranks 1158 1161 !------------------------------------------------------------------------------! 1159 SUBROUTINE module_interface_rrd_local( file_index, map_index,&1162 SUBROUTINE module_interface_rrd_local( map_index, & 1160 1163 nxlf, nxlc, nxl_on_file, & 1161 1164 nxrf, nxrc, nxr_on_file, & … … 1165 1168 1166 1169 1167 INTEGER(iwp), INTENT(IN) :: file_index !<1168 1170 INTEGER(iwp), INTENT(IN) :: map_index !< 1169 1171 INTEGER(iwp), INTENT(IN) :: nxlc !< … … 1190 1192 1191 1193 IF ( .NOT. found ) CALL bcm_rrd_local( & 1192 file_index, map_index,&1194 map_index, & 1193 1195 nxlf, nxlc, nxl_on_file, & 1194 1196 nxrf, nxrc, nxr_on_file, & … … 1199 1201 1200 1202 IF ( .NOT. found ) CALL chem_rrd_local( & 1201 file_index, map_index,&1203 map_index, & 1202 1204 nxlf, nxlc, nxl_on_file, & 1203 1205 nxrf, nxrc, nxr_on_file, & … … 1208 1210 1209 1211 IF ( .NOT. found ) CALL gust_rrd_local( & 1210 file_index, map_index,&1212 map_index, & 1211 1213 nxlf, nxlc, nxl_on_file, & 1212 1214 nxrf, nxrc, nxr_on_file, & … … 1217 1219 1218 1220 IF ( .NOT. found ) CALL lsm_rrd_local( & 1219 file_index, map_index,&1221 map_index, & 1220 1222 nxlf, nxlc, nxl_on_file, & 1221 1223 nxrf, nxrc, nxr_on_file, & … … 1226 1228 1227 1229 IF ( .NOT. found ) CALL ocean_rrd_local( & 1228 file_index, map_index, & 1230 map_index, & 1231 nxlf, nxlc, nxl_on_file, & 1232 nxrf, nxrc, nxr_on_file, & 1233 nynf, nync, nyn_on_file, & 1234 nysf, nysc, nys_on_file, & 1235 tmp_3d, found & 1236 ) ! ToDo: change interface to pass variable 1237 1238 IF ( .NOT. found ) CALL radiation_rrd_local( & 1239 map_index, & 1229 1240 nxlf, nxlc, nxl_on_file, & 1230 1241 nxrf, nxrc, nxr_on_file, & … … 1234 1245 ) ! ToDo: change interface to pass variable 1235 1246 1236 IF ( .NOT. found ) CALL radiation_rrd_local( &1237 file_index, map_index, &1238 nxlf, nxlc, nxl_on_file, &1239 nxrf, nxrc, nxr_on_file, &1240 nynf, nync, nyn_on_file, &1241 nysf, nysc, nys_on_file, &1242 tmp_2d, tmp_3d, found &1243 ) ! ToDo: change interface to pass variable1244 1245 1247 IF ( .NOT. found ) CALL salsa_rrd_local( & 1246 file_index, map_index,&1248 map_index, & 1247 1249 nxlf, nxlc, nxl_on_file, & 1248 1250 nxrf, nxrc, nxr_on_file, & … … 1253 1255 1254 1256 IF ( .NOT. found ) CALL usm_rrd_local( & 1255 file_index, map_index,&1257 map_index, & 1256 1258 nxlf, nxlc, nxl_on_file, & 1257 nxrf, nxr c, nxr_on_file,&1258 nynf, nyn c, nyn_on_file,&1259 nxrf, nxr_on_file, & 1260 nynf, nyn_on_file, & 1259 1261 nysf, nysc, nys_on_file, & 1260 1262 found & … … 1265 1267 1266 1268 IF ( .NOT. found ) CALL user_rrd_local( & 1267 file_index, map_index,&1269 map_index, & 1268 1270 nxlf, nxlc, nxl_on_file, & 1269 1271 nxrf, nxrc, nxr_on_file, &
Note: See TracChangeset
for help on using the changeset viewer.