Changeset db712a8 in flexpart.git for src/calcpv.f90


Ignore:
Timestamp:
Mar 3, 2016, 12:34:56 PM (5 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, dev, release-10, release-10.4.1, univie
Children:
38b7917
Parents:
b0434e1
Message:

Completed handling of nested wind fields with cloud water (for wet deposition).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/calcpv.f90

    r8a65cb0 rdb712a8  
    7070  enddo
    7171
    72 ! :DBG: halts with SIGFPE if compiling with -ffpe-trap
    73 !  where(ppml.le.0) ppml=10000.0
    7472!  ppmk(:,:,1:nuvz)=(100000./ppml(:,:,1:nuvz))**kappa
    75   ppmk=(100000./ppml)**kappa
     73  ppmk(0:nxmin1,0:nymin1,1:nuvz)=(100000./ppml(0:nxmin1,0:nymin1,1:nuvz))**kappa
    7674
    7775  do jy=0,nymin1
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG