Changeset b0434e1 in flexpart.git for src/FLEXPART.f90


Ignore:
Timestamp:
Feb 4, 2016, 9:38:22 AM (4 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, dev, release-10, univie
Children:
db712a8
Parents:
9484483
Message:

Initial code to handle cloud water in nested wind fields (it is not completely implemented in this commit)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/FLEXPART.f90

    rfddc6ec rb0434e1  
    5656  ! Initialize arrays in com_mod
    5757  !*****************************
    58   call com_mod_allocate(maxpart)
    59 
     58  call com_mod_allocate_part(maxpart)
     59 
    6060
    6161  ! Generate a large number of random numbers
     
    171171  call readavailable
    172172
     173  ! If nested wind fields are used, allocate arrays
     174  !************************************************
     175
     176  if (verbosity.gt.0) then
     177    write(*,*) 'call com_mod_allocate_nests'
     178  endif
     179  call com_mod_allocate_nests
     180
    173181  ! Read the model grid specifications,
    174182  ! both for the mother domain and eventual nests
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG