Ignore:
Timestamp:
Jul 4, 2018, 4:53:47 PM (6 years ago)
Author:
idelkadi
Message:

Implementation COSPv2 dans LMDZ.

File:
1 edited

Legend:

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

    r3358 r3360  
    123123  integer, save :: Nlevels      ! Number of levels
    124124  Integer :: Nptslmdz,Nlevlmdz ! Nb de points issus de physiq.F
    125   integer, save :: Nlvgrid          ! Number of levels in statistical outputs
     125  integer, save :: Nlr          ! 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,Nlvgrid,csat_vgrid, &
     185              npoints_it,ncolumns,use_vgrid,Nlr,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(Nlvgrid)
     217    CALL bcast(Nlr)
    218218    CALL bcast(csat_vgrid)
    219219    CALL bcast(radar_freq)
     
    386386!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    387387!        print *, 'Defining new vertical grid...'
    388         call construct_cosp_vgrid(gbx,Nlvgrid,use_vgrid,csat_vgrid,vgrid)
    389         print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlvgrid,use_vgrid,csat_vgrid
     388        call construct_cosp_vgrid(gbx,Nlr,use_vgrid,csat_vgrid,vgrid)
     389        print*,'Nlvgrid,use_vgrid,csat_vgrid ',Nlr,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.