Changeset 1528 for LMDZ4/branches/LMDZ4_AR5/libf/cosp/cosp_lidar.F90

Timestamp:

May 26, 2011, 2:06:28 PM (14 years ago)

Author:

idelkadi

Message:

Les modificaions concerne la partie Lidar du simulateur COSP :

1. Correction dans phys_cosp.F90 du bug sur le calcul des altitudes aux milieux et aux interfaces des couches
2. Rajout du teste "Lidar parfait" (iflag_testlidar=.true. dans lidar_simulator.F90)
3. Correction d'une erreur sur la dimension du tableau frac_out dans cosp_lidar.F90
4. Sories sur les niveaux presnivs du modele dans le cas ou l'on desactive l'interpolation sur les 40 niveaux COSP

File:

• LMDZ4/branches/LMDZ4_AR5/libf/cosp/cosp_lidar.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/cosp/cosp_lidar.F90

@@ -69 +69 @@
       mr_cl(:,:) = sghydro%mr_hydro(:,i,:,I_CVCLIQ)
       mr_ci(:,:) = sghydro%mr_hydro(:,i,:,I_CVCICE)
+      frac_out(:,:) = sgx%frac_out(:,i,:)    
       call lidar_simulator(sgx%Npoints, sgx%Nlevels, 4 &
                  , PARASOL_NREFL, LIDAR_UNDEF  &
@@ -74 +75 @@
                  , mr_ll, mr_li, mr_cl, mr_ci &
                  , gbx%Reff(:,:,I_LSCLIQ), gbx%Reff(:,:,I_LSCICE), gbx%Reff(:,:,I_CVCLIQ), gbx%Reff(:,:,I_CVCICE) &
-                 , sgx%frac_out, gbx%lidar_ice_type, y%beta_mol, beta_tot, tau_tot  &
+                 , frac_out, gbx%lidar_ice_type, y%beta_mol, beta_tot, tau_tot  &
                  , refle ) ! reflectance