Changeset 3364 for LMDZ6/trunk


Ignore:
Timestamp:
Jul 6, 2018, 3:04:26 PM (6 years ago)
Author:
idelkadi
Message:

Implementation de COSPv2 dans LMDZ.

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

Legend:

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

    r3358 r3364  
    3535   cfg%Llidar_sim=.false.
    3636   cfg%Lradar_sim=.false.
     37   cfg%Lparasol_sim=.false.
    3738   cfg%Lisccp_sim=.false.
    3839   cfg%Lmodis_sim=.false.
     
    237238  integer :: i, itap
    238239
    239  logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
     240 logical, save :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
    240241             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
    241242             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
     
    255256             LprofSR,Lproftemp                                                                        !TIBO (2)
    256257
    257   namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
     258  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
    258259             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
    259260             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
     
    285286 
    286287  CALL bcast(Lradar_sim)
     288  CALL bcast(Lparasol_sim)
    287289  CALL bcast(Llidar_sim)
    288290  CALL bcast(Lisccp_sim)
     
    382384    Lclcalipso2    = .false. ! Needs radar & lidar
    383385  endif
     386
     387  if (.not.Lparasol_sim) then
     388   LparasolRefl   = .false.
     389  endif
    384390
    385391  if (.not.Llidar_sim) then
     
    757763#ifdef CPP_XIOS
    758764
    759  logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
     765 logical :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
    760766             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
    761767             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
     
    863869    Lradar_sim=.false.
    864870    Llidar_sim=.false.
     871    Lparasol_sim=.false.
    865872    Lisccp_sim=.false.
    866873    Lmodis_sim=.false.
     
    987994       xios_field_is_active("clcalipsotmpliq").OR. &
    988995       xios_field_is_active("clcalipsotmpun").OR. &
    989        xios_field_is_active("parasol_refl").OR. &
    990996       xios_field_is_active("cfad_lidarsr532").OR. &
    991997       xios_field_is_active("atb532").OR. &
     
    10001006       xios_field_is_active("proftemp").OR. &
    10011007       xios_field_is_active("profSR")) Llidar_sim=.TRUE.
     1008
     1009    IF (xios_field_is_active("parasol_refl")) Lparasol_sim=.TRUE.
    10021010
    10031011    IF (xios_field_is_active("cfadDbze94").OR. &
  • LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

    r3360 r3364  
    123123  integer, save :: Nlevels      ! Number of levels
    124124  Integer :: Nptslmdz,Nlevlmdz ! Nb de points issus de physiq.F
    125   integer, save :: Nlr          ! Number of levels in statistical outputs
     125  integer, save :: Nlvgrid          ! Number of levels in statistical outputs
    126126  integer, save :: Npoints_it   ! Max number of gridpoints to be processed in one iteration
    127127!  integer :: i
     
    183183
    184184   namelist/COSP_INPUT/overlap,isccp_topheight,isccp_topheight_direction, &
    185               npoints_it,ncolumns,use_vgrid,Nlr,csat_vgrid, &
     185              npoints_it,ncolumns,use_vgrid,Nlvgrid,csat_vgrid, &
    186186              radar_freq,surface_radar,use_mie_tables, &
    187187              use_gas_abs,do_ray,melt_lay,k2,Nprmts_max_hydro,Naero,Nprmts_max_aero, &
     
    215215    CALL bcast(ncolumns)
    216216    CALL bcast(use_vgrid)
    217     CALL bcast(Nlr)
     217    CALL bcast(Nlvgrid)
    218218    CALL bcast(csat_vgrid)
    219219    CALL bcast(radar_freq)
     
    386386!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    387387!        print *, 'Defining new vertical grid...'
    388         call construct_cosp_vgrid(gbx,Nlr,use_vgrid,csat_vgrid,vgrid)
    389         print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlr,use_vgrid,csat_vgrid
     388        call construct_cosp_vgrid(gbx,Nlvgrid,use_vgrid,csat_vgrid,vgrid)
     389        print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlvgrid,use_vgrid,csat_vgrid
    390390        print*,'vgrid%z, vgrid%mz ',vgrid%z, vgrid%mz
    391391!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Note: See TracChangeset for help on using the changeset viewer.