Changeset 3703 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cosp

Timestamp:

Jun 11, 2020, 11:01:18 AM (5 years ago)

Author:

adurocher

Message:

Fixed compilation errors

• Fixed some OpenMP syntax errors for scorep
• Fix issues with ifort -check all -warn all -O0

Location:

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cosp

Files:

• dsd.F90 (modified) (3 diffs)
• radar_simulator.F90 (modified) (1 diff)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cosp/dsd.F90

@@ -1 @@
-  subroutine dsd(Q,Re,Np,D,N,nsizes,dtype,rho_a,tk, &
+  subroutine dsd(Q,Re_,Np,D,N,nsizes,dtype,rho_a,tk, &
              dmin,dmax,apm,bpm,rho_c,p1,p2,p3)
   use array_lib
@@ -57 +57 @@
   integer, intent(in) :: nsizes
   integer, intent(in) :: dtype
-  real*8, intent(in)  :: Q,Re,Np,D(nsizes)
+  real*8, intent(in)  :: Q,Re_,Np,D(nsizes)
   real*8, intent(in)  :: rho_a,tk,dmin,dmax,rho_c,p1,p2,p3
     
@@ -78 +78 @@
   real*8 :: tmp1, tmp2
   real*8 :: pi,rc,tc
+  real*8 :: Re
 
   integer k,lidx,uidx
+
+  Re = Re_
 
   tc = tk - 273.15

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cosp/radar_simulator.F90

@@ -96 +96 @@
   real*8, dimension(hp%nhclass,nprof,ngate), intent(in) :: hm_matrix
   real*8, dimension(hp%nhclass,nprof,ngate), intent(inout) :: re_matrix
-  real*8, dimension(hp%nhclass,nprof,ngate), intent(in)    :: Np_matrix
+  real*8, dimension(hp%nhclass,nprof,ngate), intent(inout)    :: Np_matrix
 
 ! ----- OUTPUTS -----