Changeset 3396 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Sep 26, 2018, 10:36:31 AM (6 years ago)
Author:
idelkadi
Message:

Corrections dans la nouvelle version du simulateur Cosp (cosp2) :

  • Rajout de directives OpenMP pour tourner en mod MPI-OpenMP
  • Correction pour tourner avec Ioipsl
Location:
LMDZ6/trunk/libf/phylmd/cosp2
Files:
2 edited

Legend:

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

    r3358 r3396  
    238238    integer :: &
    239239         numMODISTauBins          ! Number of tau bins for joint-histogram
    240     real(wp),allocatable,dimension(:) :: &
     240    real(wp),save,allocatable,dimension(:) :: &
    241241         modis_histTau            ! Joint-histogram boundaries (optical depth)
    242     real(wp),allocatable,dimension(:,:) :: &
     242    !$OMP THREADPRIVATE(modis_histTau)
     243    real(wp),save,allocatable,dimension(:,:) :: &
    243244         modis_histTauEdges       ! Joint-histogram bin edges (optical depth)
    244     real(wp),allocatable,dimension(:) :: &
     245    !$OMP THREADPRIVATE(modis_histTauEdges)
     246    real(wp),save,allocatable,dimension(:) :: &
    245247         modis_histTauCenters     ! Joint-histogram bin centers (optical depth)
    246    
     248    !$OMP THREADPRIVATE(modis_histTauCenters)
    247249    ! ####################################################################################
    248250    ! MODIS simulator tau/ReffICE and tau/ReffLIQ joint-histogram information
     
    333335    integer :: &
    334336         Nlvgrid      ! Number of levels in New grid
    335     real(wp),dimension(:),allocatable,save :: &
    336        vgrid_zl,  & ! New grid bottoms
    337        vgrid_zu,  & ! New grid tops
    338        vgrid_z      ! New grid center
     337!    real(wp),dimension(:),allocatable,save : &
     338!       vgrid_zl,  & ! New grid bottoms
     339!       vgrid_zu,  & ! New grid tops
     340!       vgrid_z      ! New grid center
     341    REAL(wp), SAVE, ALLOCATABLE :: vgrid_zl(:),vgrid_zu(:),vgrid_z(:)
    339342    !$OMP THREADPRIVATE(vgrid_zl,vgrid_zu,vgrid_z)
    340343END MODULE MOD_COSP_CONFIG
  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

    r3372 r3396  
    496496  cfg%Lmisr_sim  = Lmisr_sim
    497497  cfg%Lrttov_sim = Lrttov_sim
     498  cfg%Lparasol_sim = Lparasol_sim
    498499
    499500  cfg%Lstats = Lstats
Note: See TracChangeset for help on using the changeset viewer.