Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/cosp_output_write_mod.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/cosp/cosp_output_write_mod.F90 (modified) (2 diffs)

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

@@ -185 +185 @@
     DO k=1,PARASOL_NREFL
      DO ip=1, Npoints
-      if (stlidar%cldlayer(ip,4).gt.0.01.and.stlidar%parasolrefl(ip,k).ne.missing_val) then
+      if (stlidar%cldlayer(ip,4).gt.0.01.AND.stlidar%parasolrefl(ip,k).ne.missing_val) then
         parasolcrefl(ip,k)=(stlidar%parasolrefl(ip,k)-0.03*(1.-stlidar%cldlayer(ip,4)))/ &
                              stlidar%cldlayer(ip,4)
@@ -240 +240 @@
 
 !!! Sorties combinees Cloudsat et Calipso
- if (cfg%Llidar_sim .and. cfg%Lradar_sim) then
+ if (cfg%Llidar_sim .AND. cfg%Lradar_sim) then
    where(stradar%lidar_only_freq_cloud == R_UNDEF) &
                            stradar%lidar_only_freq_cloud = missing_val