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

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

@@ -140 +140 @@
 
         !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++
-        if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
+        if (cfg%Lradar_sim.AND.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
                                     temp_c,betatot_out,betaperptot_out,betamol_c,Ze_out, &
                                     stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc)
@@ -162 +162 @@
                         ,stlidar%parasolrefl,vgrid%z,stlidar%profSR)                    !OPAQ !TIBO
         !++++++++++++ Lidar-only cloud amount and lidar&radar total cloud mount ++++++++++++++++
-        if (cfg%Lradar_sim.and.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
+        if (cfg%Lradar_sim.AND.cfg%Llidar_sim) call cosp_lidar_only_cloud(Npoints,Ncolumns,Nlr, &
                                     sglidar%temp_tot,sglidar%beta_tot,sglidar%betaperp_tot,sglidar%beta_mol,sgradar%Ze_tot, &
                                     stradar%lidar_only_freq_cloud,stradar%radar_lidar_tcc)