Changeset 1870 for LMDZ5/branches/testing/libf

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

Location:

LMDZ5/branches/testing/libf/cosp

Files:

• ini_histdayCOSP.h (modified) (3 diffs)
• ini_histhfCOSP.h (modified) (3 diffs)
• ini_histmthCOSP.h (modified) (4 diffs)
• phys_cosp.F90 (modified) (1 diff)

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

@@ -24 +24 @@
        endif
 
-        CALL histvert(nid_day_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
+        CALL histvert(nid_day_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
 
         CALL histvert(nid_day_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
@@ -82 +82 @@
              CALL histdef(nid_day_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,zstoday)
             enddo
@@ -89 +89 @@
             CALL histdef(nid_day_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,zstoday)
            endif

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

@@ -24 +24 @@
        endif
 
-        CALL histvert(nid_hf_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
+        CALL histvert(nid_hf_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
 
         CALL histvert(nid_hf_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
@@ -82 +82 @@
              CALL histdef(nid_hf_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,zstohf)
             enddo
@@ -89 +89 @@
             CALL histdef(nid_hf_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,zstohf)
            endif

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

LMDZ5/branches/testing/libf/cosp/phys_cosp.F90

@@ -122 +122 @@
   real    :: zjulian,zstoday,zstomth,zstohf,zout,ecrit_day,ecrit_hf,ecrit_mth
   logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
-  integer :: nhori,nvert,nvertp,nvertisccp,nvertm,nvertcol
+  integer :: nhori,nvert,nvertp,nvertisccp,nvertmcosp,nvertcol
   integer, save :: nid_day_cosp,nid_mth_cosp,nid_hf_cosp
 !$OMP THREADPRIVATE(nid_day_cosp,nid_mth_cosp,nid_hf_cosp)