Ignore:
Timestamp:
Jul 12, 2018, 12:22:08 PM (6 years ago)
Author:
idelkadi
Message:

Implementation de COSPv2 dans LMDZ (corrections pour tourner avec IOIPSL)

Location:
LMDZ6/trunk/libf/phylmd/cosp2
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_output_mod.F90

    r3358 r3369  
    231231  SUBROUTINE cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
    232232                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml,  &
    233                               ecrit_mth, ecrit_day, ecrit_hf, vgrid)
     233                              ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
    234234  use MOD_COSP_INTERFACE_v1p4, only :  cosp_vgrid
    235235!  use MOD_COSP
     
    258258  real,dimension(Nlevlmdz) :: presnivs
    259259  real                     :: dtime, freq_cosp, ecrit_day, ecrit_hf, ecrit_mth
     260  logical                  :: use_vgrid
    260261  logical                  :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml
    261262  type(cosp_vgrid)   :: vgrid   ! Information on vertical grid of stats
     
    414415      CALL histvert(cosp_nidfiles(iff),"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp(iff))
    415416
    416       CALL histvert(cosp_nidfiles(iff),"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp(iff),"down")
     417      CALL histvert(cosp_nidfiles(iff),"pressure2","pressure","mb",7,pres_binCenters,nvertisccp(iff),"down")
    417418
    418419      CALL histvert(cosp_nidfiles(iff),"column","column","count",Ncolumns,column_ax,nvertcol(iff)) !DBUG
     
    420421      CALL histvert(cosp_nidfiles(iff),"temp","temperature","C",LIDAR_NTEMP,LIDAR_PHASE_TEMP,nverttemp(iff))
    421422
    422       CALL histvert(cosp_nidfiles(iff),"cth","altitude","m",MISR_N_CTH,MISR_CTH,nvertmisr(iff))
     423      CALL histvert(cosp_nidfiles(iff),"cth","altitude","m",numMISRHgtBins,misr_histHgtCenters,nvertmisr(iff))
    423424 
    424425      CALL histvert(cosp_nidfiles(iff),"ReffIce","Effective_particle_size_Ice","microns",numMODISReffIceBins, reffICE_binCenters, &
     
    432433      CALL histvert(cosp_nidfiles(iff),"scatratio","backscattering_ratio","1",SR_BINS,sratio_ax,nvertsratio(iff))
    433434
    434       CALL histvert(cosp_nidfiles(iff),"tau","cloud optical depth","1",7,ISCCP_TAU,nverttau(iff))
     435      CALL histvert(cosp_nidfiles(iff),"tau","cloud optical depth","1",7,tau_binCenters,nverttau(iff))
    435436     
    436437!!! Valeur indefinie en cas IOIPSL
  • LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

    r3364 r3369  
    410410        call cosp_output_open(Nlevlmdz, Ncolumns, presnivs, dtime, freq_cosp, &
    411411                              ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml, &
    412                               ecrit_mth, ecrit_day, ecrit_hf, vgrid)
     412                              ecrit_mth, ecrit_day, ecrit_hf, use_vgrid, vgrid)
    413413      !$OMP END MASTER
    414414      !$OMP BARRIER
Note: See TracChangeset for help on using the changeset viewer.