Changeset 43225d1 in flexpart.git
- Timestamp:
- Oct 16, 2015, 11:28:33 AM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- b069789
- Parents:
- cbad0f1
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/com_mod.f90
r78e62dc r43225d1 72 72 integer :: ind_rel,ind_samp,ioutputforeachrelease,linit_cond,surf_only 73 73 logical :: turbswitch 74 integer :: cblflag 74 integer :: cblflag !added by mc for cbl 75 75 76 76 ! ctl factor, by which time step must be smaller than Lagrangian time scale … … 743 743 subroutine com_mod_allocate(nmpart) 744 744 !******************************************************************************* 745 ! Dynamic allocation of arrays 745 ! Dynamic allocation of arrays 746 ! 747 ! For FLEXPART version 9.2 and earlier these arrays were statically declared 748 ! with size maxpart. This function is introduced so that the MPI version 749 ! can declare these arrays with smaller size ("maxpart per process"), while 750 ! the serial version allocate at run-time with size maxpart 746 751 ! 747 752 !******************************************************************************* 748 753 implicit none 749 754 750 integer, intent(in) :: nmpart 755 integer, intent(in) :: nmpart ! maximum number of particles (per process) 751 756 752 ! Arrays previously static of size maxpart757 ! Arrays, previously static of size maxpart 753 758 allocate(itra1(nmpart),npoint(nmpart),nclass(nmpart),& 754 759 & idt(nmpart),itramem(nmpart),itrasplit(nmpart),& … … 759 764 & vs(nmpart),ws(nmpart),cbt(nmpart)) 760 765 761 ! allocate(memind(762 763 766 end subroutine com_mod_allocate 764 767
Note: See TracChangeset
for help on using the changeset viewer.