Changeset 43225d1 in flexpart.git


Ignore:
Timestamp:
Oct 16, 2015, 11:28:33 AM (8 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
b069789
Parents:
cbad0f1
Message:

Added a comment

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/com_mod.f90

    r78e62dc r43225d1  
    7272  integer :: ind_rel,ind_samp,ioutputforeachrelease,linit_cond,surf_only
    7373  logical :: turbswitch
    74   integer :: cblflag  !added by mc for cbl
     74  integer :: cblflag !added by mc for cbl
    7575
    7676  ! ctl      factor, by which time step must be smaller than Lagrangian time scale
     
    743743      subroutine com_mod_allocate(nmpart)
    744744!*******************************************************************************   
    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
    746751!
    747752!*******************************************************************************
    748753    implicit none
    749754
    750     integer, intent(in) :: nmpart
     755    integer, intent(in) :: nmpart ! maximum number of particles (per process)
    751756   
    752 ! Arrays previously static of size maxpart
     757! Arrays, previously static of size maxpart
    753758    allocate(itra1(nmpart),npoint(nmpart),nclass(nmpart),&
    754759         & idt(nmpart),itramem(nmpart),itrasplit(nmpart),&
     
    759764         & vs(nmpart),ws(nmpart),cbt(nmpart))
    760765   
    761 !    allocate(memind(
    762 
    763766  end subroutine com_mod_allocate
    764767   
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG