Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/testing/libf/cosp/ini_histdayCOSP.h

    r1526 r1870  
    2424       endif
    2525
    26         CALL histvert(nid_day_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
     26        CALL histvert(nid_day_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
    2727
    2828        CALL histvert(nid_day_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
     
    8282             CALL histdef(nid_day_cosp, "atb532_"//chcol(ii), &
    8383                         "Lidar Attenuated Total Backscatter (532 nm)","1", &
    84                          iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     84                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    8585                         "ave(X)", zout,zstoday)
    8686            enddo
     
    8989            CALL histdef(nid_day_cosp, "beta_mol532", &
    9090                        "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
    91                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     91                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    9292                         "ave(X)", zout,zstoday)
    9393           endif
  • LMDZ5/branches/testing/libf/cosp/ini_histhfCOSP.h

    r1526 r1870  
    2424       endif
    2525
    26         CALL histvert(nid_hf_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
     26        CALL histvert(nid_hf_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
    2727
    2828        CALL histvert(nid_hf_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
     
    8282             CALL histdef(nid_hf_cosp, "atb532_"//chcol(ii), &
    8383                         "Lidar Attenuated Total Backscatter (532 nm)","1", &
    84                          iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     84                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    8585                         "ave(X)", zout,zstohf)
    8686            enddo
     
    8989            CALL histdef(nid_hf_cosp, "beta_mol532", &
    9090                        "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
    91                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     91                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    9292                         "ave(X)", zout,zstohf)
    9393           endif
  • LMDZ5/branches/testing/libf/cosp/ini_histmthCOSP.h

    r1526 r1870  
    2323        CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","Pa",Nlevout,presnivs,nvert,"down")
    2424       endif
    25         CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
     25        CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertmcosp)
    2626
    2727        CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
     
    6464!         CALL histdef(nid_mth_cosp, "zlev_m", &
    6565!                     "Height at Midel model levels", "m", &
    66 !                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     66!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    6767!                     "ave(X)", zout,zstomth)
    6868!         CALL histdef(nid_mth_cosp, "zlev_b", &
    6969!                     "Height at bottom model levels", "m", &
    70 !                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     70!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    7171!                     "ave(X)", zout,zstomth)
    7272         endif
     
    8989             CALL histdef(nid_mth_cosp, "atb532_"//chcol(ii), &
    9090                         "Lidar Attenuated Total Backscatter (532 nm)","1", &
    91                          iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     91                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    9292                         "ave(X)", zout,zstomth)
    9393            enddo
     
    9696            CALL histdef(nid_mth_cosp, "beta_mol532", &
    9797                        "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
    98                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
     98                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertmcosp, 32, &
    9999                         "ave(X)", zout,zstomth)
    100100           endif
  • LMDZ5/branches/testing/libf/cosp/phys_cosp.F90

    r1539 r1870  
    122122  real    :: zjulian,zstoday,zstomth,zstohf,zout,ecrit_day,ecrit_hf,ecrit_mth
    123123  logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
    124   integer :: nhori,nvert,nvertp,nvertisccp,nvertm,nvertcol
     124  integer :: nhori,nvert,nvertp,nvertisccp,nvertmcosp,nvertcol
    125125  integer, save :: nid_day_cosp,nid_mth_cosp,nid_hf_cosp
    126126!$OMP THREADPRIVATE(nid_day_cosp,nid_mth_cosp,nid_hf_cosp)
Note: See TracChangeset for help on using the changeset viewer.