Changeset 16b61a5 in flexpart.git for src/mean_mod.f90


Ignore:
Timestamp:
Oct 14, 2016, 3:19:00 PM (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:
4c64400
Parents:
861805a
Message:

Reworked the domain-filling option (MPI). Fixed a slow loop which had errors in loop counter (MPI)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/mean_mod.f90

    r6a678e3 r16b61a5  
    6464    ! real(sp),parameter :: eps=1.0e-30
    6565
     66    integer,intent(in) :: number
    6667    real(sp), intent(in) :: x_sp(number)
    6768    real(sp), intent(out) ::xm,xs
    68     integer,intent(in) :: number
    6969    real(sp) :: xl,xq,xaux
    7070    real(sp),parameter :: eps=1.0e-30
    … …  
    116116    implicit none
    117117
     118    integer,intent(in) :: number
    118119    real(dp), intent(in) :: x_dp(number)
    119120    real(dp), intent(out) ::xm,xs
    120     integer,intent(in) :: number
    121121    real(dp) :: xl,xq,xaux
    122122    real(dp),parameter :: eps=1.0e-30
    … …  
    168168    implicit none
    169169
     170    integer,intent(in) :: number
    170171    real(dp), intent(in) :: x_dp(number)
    171172    real(sp), intent(out) ::xm,xs
    172     integer,intent(in) :: number
    173173    real(sp) :: xl,xq,xaux
    174174    real(sp),parameter :: eps=1.0e-30
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG