Changeset 3762 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Feb 25, 2019 4:54:16 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3747 r3762 25 25 ! ----------------- 26 26 ! $Id$ 27 ! only pass required arguments to surface_data_output_rrd_local 28 ! 29 ! 3747 2019-02-16 15:15:23Z gronemeier 27 30 ! Call user_init_arrays 28 31 ! … … 1252 1255 found & 1253 1256 ) ! ToDo: change interface to pass variable 1254 1255 IF ( .NOT. found ) CALL surface_data_output_rrd_local( & 1256 file_index, map_index, & 1257 nxlf, nxlc, nxl_on_file, & 1258 nxrf, nxrc, nxr_on_file, & 1259 nynf, nync, nyn_on_file, & 1260 nysf, nysc, nys_on_file, & 1261 found & 1262 ) ! ToDo: change interface to pass variable 1257 ! 1258 !--Surface data do not need overlap data, so do not pass these information. 1259 IF ( .NOT. found ) CALL surface_data_output_rrd_local( found ) 1263 1260 1264 1261 IF ( .NOT. found ) CALL user_rrd_local( &
Note: See TracChangeset
for help on using the changeset viewer.