Ignore:
Timestamp:
Mar 17, 2022, 11:51:36 AM (3 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of some corrections and optimisations for XIOS done by
Arnaud Durocher during his TGCC mission.
Included here are r3703, r3704, r3750, r3751, r3752 from his
LMDZ6/branches/Optimisation_LMDZ branch

Location:
LMDZ6/trunk/libf/phylmd/cosp
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cosp/dsd.F90

    r2428 r4103  
    5757  integer, intent(in) :: nsizes
    5858  integer, intent(in) :: dtype
    59   real*8, intent(in)  :: Q,Re,Np,D(nsizes)
     59  real*8, intent(in)  :: Q,Re_,Np,D(nsizes)
    6060  real*8, intent(in)  :: rho_a,tk,dmin,dmax,rho_c,p1,p2,p3
    6161   
    … …  
    7878  real*8 :: tmp1, tmp2
    7979  real*8 :: pi,rc,tc
     80  real*8 :: Re
    8081
    8182  integer k,lidx,uidx
     83
     84  Re = Re_
    8285
    8386  tc = tk - 273.15

  • LMDZ6/trunk/libf/phylmd/cosp/radar_simulator.F90

    r2428 r4103  
    9696  real*8, dimension(hp%nhclass,nprof,ngate), intent(in) :: hm_matrix
    9797  real*8, dimension(hp%nhclass,nprof,ngate), intent(inout) :: re_matrix
    98   real*8, dimension(hp%nhclass,nprof,ngate), intent(in)    :: Np_matrix
     98  real*8, dimension(hp%nhclass,nprof,ngate), intent(inout)    :: Np_matrix
    9999
    100100! ----- OUTPUTS -----
Note: See TracChangeset for help on using the changeset viewer.