Changeset 5050 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 15, 2024, 11:20:29 AM (5 months ago)
Author:
evignon
Message:

renommage des tendances liees a la sublimation et sedimentation de neige soufflee

Location:
LMDZ6/trunk/libf
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

    r5040 r5050  
    8686      REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
    8787      !$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
    88       REAL, SAVE, ALLOCATABLE :: d_t_bs(:,:), d_q_bs(:,:), d_qbs_bs(:,:)
    89       !$OMP THREADPRIVATE( d_t_bs,d_q_bs, d_qbs_bs)
     88      REAL, SAVE, ALLOCATABLE :: d_t_bsss(:,:), d_q_bsss(:,:), d_qbs_bsss(:,:)
     89      !$OMP THREADPRIVATE( d_t_bsss,d_q_bsss, d_qbs_bsss)
    9090!>nrlmd+jyg
    9191      REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
    … …  
    728728      ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
    729729      ALLOCATE (d_qbs_vdf(klon,klev))
    730       ALLOCATE(d_t_bs(klon,klev),d_q_bs(klon,klev),d_qbs_bs(klon,klev))
     730      ALLOCATE(d_t_bsss(klon,klev),d_q_bsss(klon,klev),d_qbs_bsss(klon,klev))
    731731      ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
    732732      ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
    … …  
    10891089      DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
    10901090      DEALLOCATE(d_qbs_vdf)
    1091       DEALLOCATE(d_t_bs,d_q_bs,d_qbs_bs)
     1091      DEALLOCATE(d_t_bsss,d_q_bsss,d_qbs_bsss)
    10921092      DEALLOCATE(d_u_vdf,d_v_vdf)
    10931093      DEALLOCATE(d_t_oli,d_t_oro)

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5039 r5050  
    380380         d_t_lscst, d_q_lscth, d_q_lscst, plul_th, &
    381381         plul_st, d_t_vdf, d_t_diss, d_q_vdf, d_q_eva, &
    382          d_t_bs, d_q_bs, d_qbs_bs, d_qbs_vdf, &
     382         d_t_bsss, d_q_bsss, d_qbs_bsss, d_qbs_vdf, &
    383383         zw2, fraca, zmax_th, d_q_ajsb, d_t_ec, d_u_vdf, &
    384384         d_v_vdf, d_u_oro, d_v_oro, d_t_oro, d_u_lif, &
    … …  
    23332333          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_qbs_vdf(1:klon,1:klev)/pdtphys
    23342334          CALL histwrite_phy(o_dqbsvdf, zx_tmp_fi3d)
    2335           IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_qbs_bs(1:klon,1:klev)/pdtphys
     2335          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_qbs_bsss(1:klon,1:klev)/pdtphys
    23362336          CALL histwrite_phy(o_dqbsbs, zx_tmp_fi3d)
    2337           IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_bs(1:klon,1:klev)/pdtphys
     2337          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_q_bsss(1:klon,1:klev)/pdtphys
    23382338          CALL histwrite_phy(o_dqbs, zx_tmp_fi3d)
    2339           IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_bs(1:klon,1:klev)/pdtphys
     2339          IF (vars_defined) zx_tmp_fi3d(1:klon,1:klev)=d_t_bsss(1:klon,1:klev)/pdtphys
    23402340          CALL histwrite_phy(o_dtbs, zx_tmp_fi3d)
    23412341       ENDIF

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5026 r5050  
    1 !
     1
    22! $Id$
    33!
    … …  
    183183       d_ts, &
    184184       !
    185        d_t_bs,d_q_bs,d_qbs_bs, &
     185       d_t_bsss,d_q_bsss,d_qbs_bsss, &
    186186       !
    187187!       d_t_oli,d_u_oli,d_v_oli, &
    … …  
    30023002    ! Blowing snow sublimation and sedimentation
    30033003
    3004     d_t_bs(:,:)=0.
    3005     d_q_bs(:,:)=0.
    3006     d_qbs_bs(:,:)=0.
     3004    d_t_bsss(:,:)=0.
     3005    d_q_bsss(:,:)=0.
     3006    d_qbs_bsss(:,:)=0.
    30073007    bsfl(:,:)=0.
    30083008    bs_fall(:)=0.
    … …  
    30103010
    30113011     CALL call_blowing_snow_sublim_sedim(klon,klev,phys_tstep,t_seri,q_seri,qbs_seri,pplay,paprs, &
    3012                                         d_t_bs,d_q_bs,d_qbs_bs,bsfl,bs_fall)
     3012                                        d_t_bsss,d_q_bsss,d_qbs_bsss,bsfl,bs_fall)
    30133013
    30143014     CALL add_phys_tend &
    3015                (du0,dv0,d_t_bs,d_q_bs,dql0,dqi0,d_qbs_bs,paprs,&
    3016                'bs',abortphy,flag_inhib_tend,itap,0)
     3015               (du0,dv0,d_t_bsss,d_q_bsss,dql0,dqi0,d_qbs_bsss,paprs,&
     3016               'bsss',abortphy,flag_inhib_tend,itap,0)
    30173017
    30183018    ENDIF

  • LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

    r5040 r5050  
    9090      REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
    9191      !$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
    92       REAL, SAVE, ALLOCATABLE :: d_t_bs(:,:), d_q_bs(:,:), d_qbs_bs(:,:)
    93       !$OMP THREADPRIVATE( d_t_bs,d_q_bs, d_qbs_bs)
     92      REAL, SAVE, ALLOCATABLE :: d_t_bsss(:,:), d_q_bsss(:,:), d_qbs_bsss(:,:)
     93      !$OMP THREADPRIVATE( d_t_bsss,d_q_bsss, d_qbs_bsss)
    9494!>nrlmd+jyg
    9595      REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
    … …  
    850850      ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
    851851      ALLOCATE (d_qbs_vdf(klon,klev))
    852       ALLOCATE(d_t_bs(klon,klev),d_q_bs(klon,klev),d_qbs_bs(klon,klev))
     852      ALLOCATE(d_t_bsss(klon,klev),d_q_bsss(klon,klev),d_qbs_bsss(klon,klev))
    853853      ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
    854854      ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
    … …  
    12881288      DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
    12891289      DEALLOCATE(d_qbs_vdf)
    1290       DEALLOCATE(d_t_bs,d_q_bs,d_qbs_bs)
     1290      DEALLOCATE(d_t_bsss,d_q_bsss,d_qbs_bsss)
    12911291#ifdef ISO
    12921292      deallocate(xt_seri,xtl_seri,xts_seri,xtbs_seri)

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5023 r5050  
    224224       d_ts, &
    225225       !
    226        d_t_bs,d_q_bs,d_qbs_bs, &
     226       d_t_bsss,d_q_bsss,d_qbs_bsss, &
    227227       !
    228228!       d_t_oli,d_u_oli,d_v_oli, &
    … …  
    35253525    ! Blowing snow sublimation and sedimentation
    35263526
    3527     d_t_bs(:,:)=0.
    3528     d_q_bs(:,:)=0.
    3529     d_qbs_bs(:,:)=0.
     3527    d_t_bsss(:,:)=0.
     3528    d_q_bsss(:,:)=0.
     3529    d_qbs_bsss(:,:)=0.
    35303530    bsfl(:,:)=0.
    35313531    bs_fall(:)=0.
    … …  
    35333533
    35343534     CALL call_blowing_snow_sublim_sedim(klon,klev,phys_tstep,t_seri,q_seri,qbs_seri,pplay,paprs, &
    3535                                         d_t_bs,d_q_bs,d_qbs_bs,bsfl,bs_fall)
     3535                                        d_t_bsss,d_q_bsss,d_qbs_bsss,bsfl,bs_fall)
    35363536
    35373537     CALL add_phys_tend &
    3538                (du0,dv0,d_t_bs,d_q_bs,dql0,dqi0,d_qbs_bs,paprs,&
     3538               (du0,dv0,d_t_bsss,d_q_bsss,dql0,dqi0,d_qbs_bsss,paprs,&
    35393539               'bs',abortphy,flag_inhib_tend,itap,0  &
    35403540#ifdef ISO                                       
Note: See TracChangeset for help on using the changeset viewer.