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

Timestamp:

May 26, 2011, 2:06:28 PM (13 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/lidar_simulator.F90 (modified) (2 diffs)

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

@@ -179 +179 @@
       REAL tautot_S_liq(npoints),tautot_S_ice(npoints)     ! for liq and ice clouds
 
+! Abderrahmane 8-2-2011
+      Logical iflag_testlidar
+      PARAMETER (iflag_testlidar=.false.)
 
 !------------------------------------------------------------
@@ -384 +387 @@
       END DO
 
+     if (iflag_testlidar) then
+!+JLD test 
+!     do k=1,nlev
+!      print*,'Min val de frac_out=',k,minval(frac_out(:,k))
+!      print*,'Max val de frac_out=',k,maxval(frac_out(:,k))
+!     enddo
+       where ( frac_out(:,:).ge.0.5)
+! Correction AI 9 5 11          pnorm(:,:) = pmol(:,:)*10.
+       pnorm(:,:) = pmol(:,:)*50.
+        elsewhere
+          pnorm(:,:) = pmol(:,:)
+        endwhere
+!-JLD test 
+     endif
+
 !-------- End computation Lidar --------------------------