Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (9 days ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/calc_Re.F90

@@ -63 +63 @@
 
   ! // if density is constant, set equivalent values for apm and bpm
-  if ((rho_c > 0) .and. (apm < 0)) then
+  if ((rho_c > 0) .AND. (apm < 0)) then
     apm = (pi/6)*rho_c
     bpm = 3.
@@ -70 +70 @@
   ! Exponential is same as modified gamma with vu =1
   ! if Np is specified then we will just treat as modified gamma
-  if(dtype.eq.2 .and. Np>0) then
+  if(dtype.eq.2 .AND. Np>0) then
     local_dtype=1;
     local_p3=1;
@@ -117 +117 @@
     
 
-    if( Np.eq.0 .and. p2+1 > 1E-8) then     ! use default value for MEAN diameter as first default
+    if( Np.eq.0 .AND. p2+1 > 1E-8) then     ! use default value for MEAN diameter as first default
       
         dm = p2             ! by definition, should have units of microns
@@ -231 +231 @@
      
     ! get rg ... 
-    if( Np.eq.0 .and. (abs(p2+1) > 1E-8) ) then ! use default value of rg
+    if( Np.eq.0 .AND. (abs(p2+1) > 1E-8) ) then ! use default value of rg
     
             rg = p2