Changeset 0a94e13 in flexpart.git for src/FLEXPART.f90
- Timestamp:
- May 6, 2019, 11:43:21 AM (5 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug
- Children:
- 0c8c7f2
- Parents:
- 328fdf9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/FLEXPART.f90
r2753a5c r0a94e13 68 68 integer :: detectformat 69 69 70 71 72 ! Initialize arrays in com_mod73 !*****************************74 call com_mod_allocate_part(maxpart)75 70 76 77 71 ! Generate a large number of random numbers 78 72 !****************************************** … … 172 166 endif 173 167 168 ! Initialize arrays in com_mod 169 !***************************** 170 call com_mod_allocate_part(maxpart) 171 172 174 173 ! Read the age classes to be used 175 174 !********************************
Note: See TracChangeset
for help on using the changeset viewer.