Changeset 1528 for LMDZ4/branches/LMDZ4_AR5/libf/cosp/ini_histhfCOSP.h

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/ini_histhfCOSP.h (modified) (2 diffs)

LMDZ4/branches/LMDZ4_AR5/libf/cosp/ini_histhfCOSP.h

@@ -18 +18 @@
 
 ! Definition de l'axe vertical
+       if (use_vgrid) then
         CALL histvert(nid_hf_cosp,"height","height","m",Nlevout,vgrid%z,nvert)
-        print*,'Ok height Nlevout, height =',Nlevout,vgrid%z
+       else
+        CALL histvert(nid_hf_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert)
+       endif
+
         CALL histvert(nid_hf_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
-        print*,'Ok height_mlev Nlevout height_mlev =',Nlevout,vgrid%mz
-!        CALL histvert(nid_hf_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert)
 
         CALL histvert(nid_hf_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
@@ -28 +30 @@
         CALL histvert(nid_hf_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp)
 
-        CALL histvert(nid_hf_cosp,"column","column","count",Ncolumns,column_ax,nvertcol)
+        CALL histvert(nid_hf_cosp,"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol)
 
 ! Sorties LIDAR