Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_utils.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_utils.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/cosp_utils.F90

@@ -85 +85 @@
                         mxratio(i,j,k)=mxratio(i,j,k)/rho
                         ! Compute effective radius
-!                        if ((reff(i,j,k) <= 0._wp).and.(flux(i,k) /= 0._wp)) then
-                         if ((reff(i,j,k) <= 0._wp).and.(flux(i,k) > seuil)) then
+!                        if ((reff(i,j,k) <= 0._wp).AND.(flux(i,k) /= 0._wp)) then
+                         if ((reff(i,j,k) <= 0._wp).AND.(flux(i,k) > seuil)) then
                            lambda_x = (a_x*c_x*((rho0/rho)**g_x)*n_ax*gamma1/flux(i,k))**(1._wp/delta)
                            reff(i,j,k) = gamma_4_3_2/lambda_x