Ignore:
Timestamp:
Oct 19, 2023, 4:02:57 PM (8 months ago)
Author:
idelkadi
Message:

Merged trunk changes -r4488:4726 LMDZ_ECRad branch

Location:
LMDZ6/branches/LMDZ_ECRad
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ_ECRad

  • LMDZ6/branches/LMDZ_ECRad/libf/phylmd/phys_local_var_mod.F90

    • Property svn:keywords changed from Author Date Id Revision to Id
    r4647 r4727  
    1414      REAL, SAVE, ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
    1515      !$OMP THREADPRIVATE(ql_seri,qs_seri)
     16      REAL, SAVE, ALLOCATABLE :: qbs_seri(:,:)
     17      !$OMP THREADPRIVATE(qbs_seri)
    1618      REAL, SAVE, ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
    1719      !$OMP THREADPRIVATE(u_seri, v_seri)
    … …  
    2830      REAL, SAVE, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:)
    2931      !$OMP THREADPRIVATE(d_t_dyn, d_q_dyn)
    30       REAL, SAVE, ALLOCATABLE :: d_ql_dyn(:,:), d_qs_dyn(:,:)
    31       !$OMP THREADPRIVATE(d_ql_dyn, d_qs_dyn)
    32       REAL, SAVE, ALLOCATABLE :: d_q_dyn2d(:), d_ql_dyn2d(:), d_qs_dyn2d(:)
    33       !$OMP THREADPRIVATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d)
     32      REAL, SAVE, ALLOCATABLE :: d_ql_dyn(:,:), d_qs_dyn(:,:), d_qbs_dyn(:,:)
     33      !$OMP THREADPRIVATE(d_ql_dyn, d_qs_dyn, d_qbs_dyn)
     34      REAL, SAVE, ALLOCATABLE :: d_q_dyn2d(:), d_ql_dyn2d(:), d_qs_dyn2d(:), d_qbs_dyn2d(:)
     35      !$OMP THREADPRIVATE(d_q_dyn2d, d_ql_dyn2d, d_qs_dyn2d, d_qbs_dyn2d)
    3436      REAL, SAVE, ALLOCATABLE :: d_u_dyn(:,:), d_v_dyn(:,:)
    3537      !$OMP THREADPRIVATE(d_u_dyn, d_v_dyn)
    … …  
    7173      REAL, SAVE, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:)
    7274      !$OMP THREADPRIVATE(d_u_oli, d_v_oli)
    73       REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:), d_t_diss(:,:)
    74       !$OMP THREADPRIVATE( d_t_vdf, d_q_vdf,d_t_diss)
     75      REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:), d_qbs_vdf(:,:), d_t_diss(:,:)
     76      !$OMP THREADPRIVATE( d_t_vdf, d_q_vdf, d_qbs_vdf, d_t_diss)
    7577      REAL, SAVE, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:)
    7678      !$OMP THREADPRIVATE(d_u_vdf, d_v_vdf)
    … …  
    8082      REAL, SAVE, ALLOCATABLE :: d_t_vdf_x(:,:), d_q_vdf_x(:,:)
    8183      !$OMP THREADPRIVATE( d_t_vdf_x, d_q_vdf_x)
     84      REAL, SAVE, ALLOCATABLE :: d_t_bs(:,:), d_q_bs(:,:), d_qbs_bs(:,:)
     85      !$OMP THREADPRIVATE( d_t_bs,d_q_bs, d_qbs_bs)
    8286!>nrlmd+jyg
    8387      REAL, SAVE, ALLOCATABLE :: d_t_oro(:,:)
    … …  
    141145      REAL, SAVE, ALLOCATABLE :: toplwad0_aero(:), sollwad0_aero(:)     ! diag
    142146      !$OMP THREADPRIVATE(toplwad0_aero,sollwad0_aero)
    143 
    144 !AI 08 2023 ajout pour Ecrad
    145       REAL,ALLOCATABLE,SAVE :: topswad_aero_s2(:), solswad_aero_s2(:)
    146 !$OMP THREADPRIVATE(topswad_aero_s2, solswad_aero_s2)
    147       REAL,ALLOCATABLE,SAVE :: topswai_aero_s2(:), solswai_aero_s2(:)
    148 !$OMP THREADPRIVATE(topswai_aero_s2, solswai_aero_s2)
    149       REAL,ALLOCATABLE,SAVE :: topswad0_aero_s2(:), solswad0_aero_s2(:)
    150 !$OMP THREADPRIVATE(topswad0_aero_s2, solswad0_aero_s2)
    151       REAL,ALLOCATABLE,SAVE :: topsw_aero_s2(:,:), topsw0_aero_s2(:,:)
    152 !$OMP THREADPRIVATE(topsw_aero_s2, topsw0_aero_s2)
    153       REAL,ALLOCATABLE,SAVE :: solsw_aero_s2(:,:), solsw0_aero_s2(:,:)
    154 !$OMP THREADPRIVATE(solsw_aero_s2, solsw0_aero_s2)
    155       REAL,ALLOCATABLE,SAVE :: topswcf_aero_s2(:,:), solswcf_aero_s2(:,:)
    156 !$OMP THREADPRIVATE(topswcf_aero_s2, solswcf_aero_s2)
    157 ! additional LW variables CK
    158       REAL,ALLOCATABLE,SAVE :: toplwad_aero_s2(:), sollwad_aero_s2(:)
    159 !$OMP THREADPRIVATE(toplwad_aero_s2, sollwad_aero_s2)
    160       REAL,ALLOCATABLE,SAVE :: toplwai_aero_s2(:), sollwai_aero_s2(:)
    161 !$OMP THREADPRIVATE(toplwai_aero_s2, sollwai_aero_s2)
    162       REAL,ALLOCATABLE,SAVE :: toplwad0_aero_s2(:), sollwad0_aero_s2(:)
    163 !$OMP THREADPRIVATE(toplwad0_aero_s2, sollwad0_aero_s2)
    164      
    165147! Special RRTM
    166148      REAL, SAVE, ALLOCATABLE :: ZLWFT0_i(:,:),  ZSWFT0_i(:,:)      ! diag
    … …  
    179161      REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:)
    180162      !$OMP THREADPRIVATE(tau3d_aero)
    181       REAL, SAVE, ALLOCATABLE :: scdnc(:,:)
    182       !$OMP THREADPRIVATE(scdnc)
    183163      REAL, SAVE, ALLOCATABLE :: dNovrN(:)
    184164      !$OMP THREADPRIVATE(dNovrN)
    185       REAL, SAVE, ALLOCATABLE :: cldncl(:)
    186       !$OMP THREADPRIVATE(cldncl)
    187       REAL, SAVE, ALLOCATABLE :: reffclwtop(:)
    188       !$OMP THREADPRIVATE(reffclwtop)
    189       REAL, SAVE, ALLOCATABLE :: lcc(:)
    190       !$OMP THREADPRIVATE(lcc)
    191       REAL, SAVE, ALLOCATABLE :: reffclws(:,:)
    192       !$OMP THREADPRIVATE(reffclws)
    193       REAL, SAVE, ALLOCATABLE :: reffclwc(:,:)
    194       !$OMP THREADPRIVATE(reffclwc)
    195       REAL, SAVE, ALLOCATABLE :: cldnvi(:)
    196       !$OMP THREADPRIVATE(cldnvi)
    197       REAL, SAVE, ALLOCATABLE :: lcc3d(:,:)
    198       !$OMP THREADPRIVATE(lcc3d)
    199       REAL, SAVE, ALLOCATABLE :: lcc3dcon(:,:)
    200       !$OMP THREADPRIVATE(lcc3dcon)
    201       REAL, SAVE, ALLOCATABLE :: lcc3dstra(:,:)
    202       !$OMP THREADPRIVATE(lcc3dstra)
    203       REAL, SAVE, ALLOCATABLE :: icc3dcon(:,:)
    204       !$OMP THREADPRIVATE(icc3dcon)
    205       REAL, SAVE, ALLOCATABLE :: icc3dstra(:,:)
    206       !$OMP THREADPRIVATE(icc3dstra)
    207165      REAL, SAVE, ALLOCATABLE :: zfice(:,:)
    208166      !$OMP THREADPRIVATE(zfice)
    … …  
    290248!$OMP THREADPRIVATE(toplwad0_aerop, sollwad0_aerop)
    291249
     250!AI 08 2023 ajout pour Ecrad
     251      REAL,ALLOCATABLE,SAVE :: topswad_aero_s2(:), solswad_aero_s2(:)
     252!$OMP THREADPRIVATE(topswad_aero_s2, solswad_aero_s2)
     253      REAL,ALLOCATABLE,SAVE :: topswai_aero_s2(:), solswai_aero_s2(:)
     254!$OMP THREADPRIVATE(topswai_aero_s2, solswai_aero_s2)
     255      REAL,ALLOCATABLE,SAVE :: topswad0_aero_s2(:), solswad0_aero_s2(:)
     256!$OMP THREADPRIVATE(topswad0_aero_s2, solswad0_aero_s2)
     257      REAL,ALLOCATABLE,SAVE :: topsw_aero_s2(:,:), topsw0_aero_s2(:,:)
     258!$OMP THREADPRIVATE(topsw_aero_s2, topsw0_aero_s2)
     259      REAL,ALLOCATABLE,SAVE :: solsw_aero_s2(:,:), solsw0_aero_s2(:,:)
     260!$OMP THREADPRIVATE(solsw_aero_s2, solsw0_aero_s2)
     261      REAL,ALLOCATABLE,SAVE :: topswcf_aero_s2(:,:), solswcf_aero_s2(:,:)
     262!$OMP THREADPRIVATE(topswcf_aero_s2, solswcf_aero_s2)
     263! additional LW variables CK
     264      REAL,ALLOCATABLE,SAVE :: toplwad_aero_s2(:), sollwad_aero_s2(:)
     265!$OMP THREADPRIVATE(toplwad_aero_s2, sollwad_aero_s2)
     266      REAL,ALLOCATABLE,SAVE :: toplwai_aero_s2(:), sollwai_aero_s2(:)
     267!$OMP THREADPRIVATE(toplwai_aero_s2, sollwai_aero_s2)
     268      REAL,ALLOCATABLE,SAVE :: toplwad0_aero_s2(:), sollwad0_aero_s2(:)
     269!$OMP THREADPRIVATE(toplwad0_aero_s2, sollwad0_aero_s2)
     270
    292271!Ajout de celles n??cessaires au phys_output_write_mod
    293272      REAL, SAVE, ALLOCATABLE :: tal1(:), pal1(:), pab1(:), pab2(:)
    … …  
    298277!$OMP THREADPRIVATE(sens, flwp, fiwp)
    299278!!
     279!FC
     280      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zxfluxt, zxfluxq
     281!$OMP THREADPRIVATE(zxfluxt, zxfluxq)
     282!FC
    300283!!         Wake variables
    301284      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: alp_wake
    … …  
    334317      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt
    335318!$OMP THREADPRIVATE(JrNt)
    336       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, fder, plcl, plfc, prw, prlw, prsw
    337 !$OMP THREADPRIVATE(dthmin, evap, fder, plcl, plfc, prw, prlw, prsw)
     319      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw
     320!$OMP THREADPRIVATE(dthmin, evap, snowerosion, fder, plcl, plfc, prw, prlw, prsw, prbsw)
    338321      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zustar, zu10m, zv10m, rh2m
    339322!$OMP THREADPRIVATE(zustar, zu10m, zv10m, rh2m)
    … …  
    352335      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte
    353336!$OMP THREADPRIVATE(tpot, tpote, ue, uq, uwat, ve, vq, vwat, zxffonte)
     337      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxustartlic, zxrhoslic
     338!$OMP THREADPRIVATE(zxustartlic, zxrhoslic)
    354339      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfqcalving
    355340!$OMP THREADPRIVATE(zxfqcalving)
    … …  
    473458      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: zx_rh, zx_rhl, zx_rhi
    474459!$OMP THREADPRIVATE(zx_rh, zx_rhl, zx_rhi)
    475       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: prfl, psfl, fraca
    476 !$OMP THREADPRIVATE(prfl, psfl, fraca)
     460      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: prfl, psfl, fraca, bsfl
     461!$OMP THREADPRIVATE(prfl, psfl, fraca, bsfl)
    477462      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: Vprecip, zw2
    478463!$OMP THREADPRIVATE(Vprecip, zw2)
    … …  
    492477      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: rneb,rnebjn,rneblsvol
    493478!$OMP THREADPRIVATE(rneb,rnebjn,rneblsvol)
     479      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: pfraclr,pfracld
     480!$OMP THREADPRIVATE(pfraclr,pfracld)
    494481
    495482! variables de sorties MM
    … …  
    545532      REAL, SAVE, ALLOCATABLE :: fcontrP(:,:)
    546533      !$OMP THREADPRIVATE(fcontrP)
     534      REAL, SAVE, ALLOCATABLE :: distcltop(:,:)
     535      !$OMP THREADPRIVATE(distcltop)
     536      REAL, SAVE, ALLOCATABLE :: temp_cltop(:,:)
     537      !$OMP THREADPRIVATE(temp_cltop)
     538
    547539
    548540#ifdef CPP_StratAer
    549541!
    550542! variables for stratospheric aerosol
     543      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: d_q_emiss
     544!$OMP THREADPRIVATE(d_q_emiss)
    551545      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: R2SO4
    552546!$OMP THREADPRIVATE(R2SO4)
    … …  
    563557      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: SO2_lifetime
    564558!$OMP THREADPRIVATE(SO2_lifetime)
     559      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: H2SO4_lifetime
     560!$OMP THREADPRIVATE(H2SO4_lifetime)
     561      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: O3_clim
     562!$OMP THREADPRIVATE(O3_clim)
    565563      REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: alpha_bin
    566564!$OMP THREADPRIVATE(alpha_bin)
    … …  
    630628
    631629IMPLICIT NONE
    632       ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
     630      ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev), qbs_seri(klon,klev))
    633631      ALLOCATE(u_seri(klon,klev),v_seri(klon,klev))
    634632      ALLOCATE(l_mixmin(klon,klev+1,nbsrf),l_mix(klon,klev+1,nbsrf),tke_dissip(klon,klev+1,nbsrf),wprime(klon,klev+1,nbsrf))
    … …  
    638636      ALLOCATE(tr_seri(klon,klev,nbtr))
    639637      ALLOCATE(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
    640       ALLOCATE(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev))
    641       ALLOCATE(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon))
     638      ALLOCATE(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev), d_qbs_dyn(klon,klev))
     639      ALLOCATE(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon), d_qbs_dyn2d(klon))
    642640      ALLOCATE(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
    643641      ALLOCATE(d_tr_dyn(klon,klev,nbtr))                   !RomP
    … …  
    662660      ALLOCATE(plul_st(klon),plul_th(klon))
    663661      ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
    664 
     662      ALLOCATE (d_qbs_vdf(klon,klev))
     663      ALLOCATE(d_t_bs(klon,klev),d_q_bs(klon,klev),d_qbs_bs(klon,klev))
    665664      ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
    666665      ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
    … …  
    703702      ALLOCATE(drytausum_aero(klon,naero_tot))
    704703      ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot))
    705       ALLOCATE(scdnc(klon, klev))
    706704      ALLOCATE(dNovrN(klon))
    707       ALLOCATE(cldncl(klon))
    708       ALLOCATE(reffclwtop(klon))
    709       ALLOCATE(lcc(klon))
    710       ALLOCATE(reffclws(klon, klev))
    711       ALLOCATE(reffclwc(klon, klev))
    712       ALLOCATE(cldnvi(klon))
    713       ALLOCATE(lcc3d(klon, klev))
    714       ALLOCATE(lcc3dcon(klon, klev))
    715       ALLOCATE(lcc3dstra(klon, klev))
    716       ALLOCATE(icc3dcon(klon, klev))
    717       ALLOCATE(icc3dstra(klon, klev))
    718705      ALLOCATE(zfice(klon, klev))
    719706      ALLOCATE(od443aer(klon))
    … …  
    763750      ALLOCATE(topswcf_aerop(klon,naero_grp), solswcf_aerop(klon,naero_grp))
    764751
     752! additional LW variables CK
     753      ALLOCATE(toplwad_aerop(klon), sollwad_aerop(klon))
     754      ALLOCATE(toplwai_aerop(klon), sollwai_aerop(klon))
     755      ALLOCATE(toplwad0_aerop(klon), sollwad0_aerop(klon))
     756
    765757!AI Ajout Ecrad (3Deffect)
    766758      ALLOCATE(topswad_aero_s2(klon), solswad_aero_s2(klon))
    … …  
    775767      ALLOCATE(toplwad0_aero_s2(klon), sollwad0_aero_s2(klon))
    776768
    777 ! additional LW variables CK
    778       ALLOCATE(toplwad_aerop(klon), sollwad_aerop(klon))
    779       ALLOCATE(toplwai_aerop(klon), sollwai_aerop(klon))
    780       ALLOCATE(toplwad0_aerop(klon), sollwad0_aerop(klon))
    781769
    782770! FH Ajout de celles necessaires au phys_output_write_mod
    … …  
    803791      ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon))
    804792      ALLOCATE(JrNt(klon))
    805       ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon))
    806       ALLOCATE(prw(klon), prlw(klon), prsw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
     793      ALLOCATE(dthmin(klon), evap(klon), snowerosion(klon), fder(klon), plcl(klon), plfc(klon))
     794      ALLOCATE(prw(klon), prlw(klon), prsw(klon), prbsw(klon), zustar(klon), zu10m(klon), zv10m(klon), rh2m(klon))
    807795      ALLOCATE(s_lcl(klon))
    808796      ALLOCATE(s_pblh(klon), s_pblt(klon), s_therm(klon))
    … …  
    819807      ALLOCATE(zxtsol(klon), snow_lsc(klon), zxfqfonte(klon), zxqsurf(klon))
    820808      ALLOCATE(zxrunofflic(klon))
     809      ALLOCATE(zxustartlic(klon), zxrhoslic(klon))
     810      zxustartlic(:)=0. ; zxrhoslic(:)=0.
    821811      ALLOCATE(rain_lsc(klon))
    822812      ALLOCATE(rain_num(klon))
    … …  
    875865      ALLOCATE(wfevap(klon, nbsrf), wfrain(klon,nbsrf), wfsnow(klon, nbsrf))
    876866      ALLOCATE(evap_pot(klon, nbsrf))
     867! FC
     868      ALLOCATE(zxfluxq(klon,klev),zxfluxt(klon,klev))
    877869!
    878870!  Deep convective variables used in phytrac
    … …  
    895887      ALLOCATE(prfl(klon, klev+1))
    896888      ALLOCATE(psfl(klon, klev+1), fraca(klon, klev+1), Vprecip(klon, klev+1))
     889      ALLOCATE(bsfl(klon,klev+1))
    897890      ALLOCATE(zw2(klon, klev+1))
    898891
    … …  
    908901      ALLOCATE(beta_prec(klon,klev))
    909902      ALLOCATE(rneb(klon,klev),rnebjn(klon,klev),rneblsvol(klon,klev))
     903      ALLOCATE(pfraclr(klon,klev),pfracld(klon,klev))
     904      pfraclr(:,:)=0. ; pfracld(:,:)=0. ! because not always defined
     905      ALLOCATE(distcltop(klon,klev))
     906      ALLOCATE(temp_cltop(klon,klev))
    910907
    911908
    … …  
    930927
    931928#ifdef CPP_StratAer
     929      ALLOCATE (d_q_emiss(klon,klev))
    932930      ALLOCATE (R2SO4(klon,klev))
    933931      ALLOCATE (DENSO4(klon,klev))
    … …  
    943941      ALLOCATE (OCS_lifetime(klon,klev))
    944942      ALLOCATE (SO2_lifetime(klon,klev))
     943      ALLOCATE (H2SO4_lifetime(klon,klev))
     944      ALLOCATE (O3_clim(klon,klev))
    945945      ALLOCATE (alpha_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
    946946      ALLOCATE (piz_bin(nbands_sw_rrtm+nbands_lw_rrtm+nwave,nbtr))
    … …  
    976976USE indice_sol_mod
    977977IMPLICIT NONE
    978       DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri)
     978      DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri, qbs_seri)
    979979      DEALLOCATE(u_seri,v_seri)
    980980      DEALLOCATE(l_mixmin,l_mix, tke_dissip,wprime)
    … …  
    983983      DEALLOCATE(tr_seri)
    984984      DEALLOCATE(d_t_dyn,d_q_dyn)
    985       DEALLOCATE(d_ql_dyn,d_qs_dyn)
    986       DEALLOCATE(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d)
     985      DEALLOCATE(d_ql_dyn,d_qs_dyn, d_qbs_dyn)
     986      DEALLOCATE(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d, d_qbs_dyn2d)
    987987      DEALLOCATE(d_u_dyn,d_v_dyn)
    988988      DEALLOCATE(d_tr_dyn)                      !RomP
    … …  
    10071007      DEALLOCATE(plul_st,plul_th)
    10081008      DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
     1009      DEALLOCATE(d_qbs_vdf)
     1010      DEALLOCATE(d_t_bs,d_q_bs,d_qbs_bs)
    10091011      DEALLOCATE(d_u_vdf,d_v_vdf)
    10101012      DEALLOCATE(d_t_oli,d_t_oro)
    … …  
    10291031      DEALLOCATE(drytausum_aero)
    10301032      DEALLOCATE(tau3d_aero)
    1031       DEALLOCATE(scdnc)
    10321033      DEALLOCATE(dNovrN)
    1033       DEALLOCATE(cldncl)
    1034       DEALLOCATE(reffclwtop)
    1035       DEALLOCATE(lcc)
    1036       DEALLOCATE(reffclws)
    1037       DEALLOCATE(reffclwc)
    1038       DEALLOCATE(cldnvi)
    1039       DEALLOCATE(lcc3d)
    1040       DEALLOCATE(lcc3dcon)
    1041       DEALLOCATE(lcc3dstra)
    1042       DEALLOCATE(icc3dcon)
    1043       DEALLOCATE(icc3dstra)
    10441034      DEALLOCATE(zfice)
    10451035      DEALLOCATE(od443aer)
    … …  
    10901080      DEALLOCATE(solsw_aerop, solsw0_aerop)
    10911081      DEALLOCATE(topswcf_aerop, solswcf_aerop)
     1082!AI Aerosols
     1083      DEALLOCATE(m_allaer)
     1084!CK LW diagnostics
     1085      DEALLOCATE(toplwad_aerop, sollwad_aerop)
     1086      DEALLOCATE(toplwai_aerop, sollwai_aerop)
     1087      DEALLOCATE(toplwad0_aerop, sollwad0_aerop)
    10921088
    10931089!AI Ajout pour Ecrad (3Deffect)
    … …  
    11011097      DEALLOCATE(toplwad_aero_s2, sollwad_aero_s2)
    11021098      DEALLOCATE(toplwai_aero_s2, sollwai_aero_s2)
    1103       DEALLOCATE(toplwad0_aero_s2, sollwad0_aero_s2)
    1104      
    1105 !AI Aerosols
    1106       DEALLOCATE(m_allaer)
    1107 !CK LW diagnostics
    1108       DEALLOCATE(toplwad_aerop, sollwad_aerop)
    1109       DEALLOCATE(toplwai_aerop, sollwai_aerop)
    1110       DEALLOCATE(toplwad0_aerop, sollwad0_aerop)
     1099      DEALLOCATE(toplwad0_aero_s2, sollwad0_aero_s2)     
    11111100
    11121101! FH Ajout de celles necessaires au phys_output_write_mod
    … …  
    11301119      DEALLOCATE(cldm, cldq, cldt, qsat2m)
    11311120      DEALLOCATE(JrNt)
    1132       DEALLOCATE(dthmin, evap, fder, plcl, plfc)
    1133       DEALLOCATE(prw, prlw, prsw, zustar, zu10m, zv10m, rh2m, s_lcl)
     1121      DEALLOCATE(dthmin, evap, snowerosion, fder, plcl, plfc)
     1122      DEALLOCATE(prw, prlw, prsw, prbsw, zustar, zu10m, zv10m, rh2m, s_lcl)
    11341123      DEALLOCATE(s_pblh, s_pblt, s_therm)
    11351124!
    … …  
    11441133      DEALLOCATE(zxfqcalving, zxfluxlat)
    11451134      DEALLOCATE(zxrunofflic)
     1135      DEALLOCATE(zxustartlic, zxrhoslic)
    11461136      DEALLOCATE(zxtsol, snow_lsc, zxfqfonte, zxqsurf)
    11471137      DEALLOCATE(rain_lsc)
    … …  
    11761166      DEALLOCATE(alp_bl_stat, n2, s2)
    11771167      DEALLOCATE(proba_notrig, random_notrig)
     1168!FC
     1169      DEALLOCATE(zxfluxq,zxfluxt)
    11781170
    11791171      DEALLOCATE(dnwd0)
    … …  
    12121204
    12131205
    1214       DEALLOCATE(prfl, psfl, fraca, Vprecip)
     1206      DEALLOCATE(prfl, psfl, bsfl, fraca, Vprecip)
    12151207      DEALLOCATE(zw2)
    12161208
    … …  
    12251217      DEALLOCATE(beta_prec)
    12261218      DEALLOCATE(rneb)
     1219      DEALLOCATE(pfraclr,pfracld)
    12271220      DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
    1228 
     1221      DEALLOCATE(distcltop)
     1222      DEALLOCATE(temp_cltop)
    12291223      DEALLOCATE (p_tropopause)
    12301224      DEALLOCATE (z_tropopause)
    … …  
    12441238#ifdef CPP_StratAer
    12451239! variables for strat. aerosol CK
     1240      DEALLOCATE (d_q_emiss)
    12461241      DEALLOCATE (R2SO4)
    12471242      DEALLOCATE (DENSO4)
    … …  
    12511246      DEALLOCATE (SO2_lifetime)
    12521247      DEALLOCATE (OCS_lifetime)
     1248      DEALLOCATE (H2SO4_lifetime)
     1249      DEALLOCATE (O3_clim)
    12531250      DEALLOCATE (alpha_bin)
    12541251      DEALLOCATE (piz_bin)
Note: See TracChangeset for help on using the changeset viewer.