Changeset 220 for palm/trunk/SOURCE/user_read_restart_data.f90
- Timestamp:
- Dec 18, 2008 7:00:36 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_read_restart_data.f90
r216 r220 1 SUBROUTINE user_read_restart_data( nxlfa, nxl_on_file, nxrfa, nxr_on_file, &2 nynfa, nyn_on_file, nysfa, nys_on_file, &3 offset_xa, offset_ya, overlap_count, &1 SUBROUTINE user_read_restart_data( i, nxlfa, nxl_on_file, nxrfa, nxr_on_file, & 2 nynfa, nyn_on_file, nysfa, nys_on_file, & 3 offset_xa, offset_ya, overlap_count, & 4 4 tmp_2d, tmp_3d ) 5 5 … … 33 33 CHARACTER (LEN=20) :: field_char 34 34 35 INTEGER :: k, nxlc, nxlf, nxl_on_file, nxrc, nxrf, nxr_on_file, nync, &35 INTEGER :: i, k, nxlc, nxlf, nxl_on_file, nxrc, nxrf, nxr_on_file, nync, & 36 36 nynf, nyn_on_file, nysc, nysf, nys_on_file, overlap_count 37 37
Note: See TracChangeset
for help on using the changeset viewer.