Changeset 1870 for LMDZ5/branches/testing/libf/cosp/ini_histmthCOSP.h

Timestamp:

Sep 16, 2013, 2:38:09 PM (11 years ago)

Author:

idelkadi

Message:

Variable renommée pour éviter la confusion avec une autre variable dans phylmd ayant le meme nom

File:

• LMDZ5/branches/testing/libf/cosp/ini_histmthCOSP.h (modified) (4 diffs)

LMDZ5/branches/testing/libf/cosp/ini_histmthCOSP.h

@@ -23 +23 @@
         CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","Pa",Nlevout,presnivs,nvert,"down")
        endif
-        CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
+        CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
 
         CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
@@ -64 +64 @@
 !         CALL histdef(nid_mth_cosp, "zlev_m", &
 !                     "Height at Midel model levels", "m", &
-!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
+!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
 !                     "ave(X)", zout,zstomth)
 !         CALL histdef(nid_mth_cosp, "zlev_b", &
 !                     "Height at bottom model levels", "m", &
-!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
+!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
 !                     "ave(X)", zout,zstomth)
          endif
@@ -89 +89 @@
              CALL histdef(nid_mth_cosp, "atb532_"//chcol(ii), &
                          "Lidar Attenuated Total Backscatter (532 nm)","1", &
-                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
+                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
                          "ave(X)", zout,zstomth)
             enddo
@@ -96 +96 @@
             CALL histdef(nid_mth_cosp, "beta_mol532", &
                         "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
-                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
+                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
                          "ave(X)", zout,zstomth)
            endif