Ignore:
Timestamp:
May 4, 2017, 9:31:05 AM (7 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r2842:2865 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90

    r2845 r2870  
    141141      REAL, SAVE, ALLOCATABLE :: tausum_aero(:,:,:)
    142142      !$OMP THREADPRIVATE(tausum_aero)
     143      REAL, SAVE, ALLOCATABLE :: drytausum_aero(:,:)
     144      !$OMP THREADPRIVATE(drytausum_aero)
    143145      REAL, SAVE, ALLOCATABLE :: tau3d_aero(:,:,:,:)
    144146      !$OMP THREADPRIVATE(tau3d_aero)
    … …  
    167169      REAL, SAVE, ALLOCATABLE :: od550aer(:)
    168170      !$OMP THREADPRIVATE(od550aer)
     171      REAL, SAVE, ALLOCATABLE :: dryod550aer(:)
     172      !$OMP THREADPRIVATE(dryod550aer)
    169173      REAL, SAVE, ALLOCATABLE :: abs550aer(:)
    170174      !$OMP THREADPRIVATE(abs550aer)
    … …  
    251255      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: ale_wake, alp_wake
    252256!$OMP THREADPRIVATE(ale_wake, alp_wake)           
    253       REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
     257!!jyg!      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h,wake_k
     258      REAL,ALLOCATABLE,SAVE,DIMENSION(:)            :: wake_h
     259      INTEGER,ALLOCATABLE,SAVE,DIMENSION(:)         :: wake_k
    254260!$OMP THREADPRIVATE(wake_h,wake_k)                       
    255261    REAL,ALLOCATABLE,SAVE,DIMENSION(:,:)            :: wake_omg
    … …  
    498504
    499505IMPLICIT NONE
    500       allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
    501       allocate(u_seri(klon,klev),v_seri(klon,klev))
    502       allocate(l_mixmin(klon,klev,nbsrf), l_mix(klon,klev,nbsrf))
     506      ALLOCATE(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
     507      ALLOCATE(u_seri(klon,klev),v_seri(klon,klev))
     508      ALLOCATE(l_mixmin(klon,klev,nbsrf), l_mix(klon,klev,nbsrf))
    503509      l_mix(:,:,:)=0. ; l_mixmin(:,:,:)=0. ! doit etre initialse car pas toujours remplis
    504510
    505       allocate(tr_seri(klon,klev,nbtr))
    506       allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
    507       allocate(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev))
    508       allocate(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon))
    509       allocate(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
    510       allocate(d_tr_dyn(klon,klev,nbtr))                   !RomP
    511       allocate(d_t_con(klon,klev),d_q_con(klon,klev))
    512       allocate(d_u_con(klon,klev),d_v_con(klon,klev))
    513       allocate(d_t_wake(klon,klev),d_q_wake(klon,klev))
    514       allocate(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
    515       allocate(d_t_lwr(klon,klev),d_t_lw0(klon,klev))
    516       allocate(d_t_swr(klon,klev),d_t_sw0(klon,klev))
    517       allocate(d_ql_lsc(klon,klev),d_qi_lsc(klon,klev))
    518       allocate(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev))
    519       allocate(d_t_ajs(klon,klev),d_q_ajs(klon,klev))
     511      ALLOCATE(tr_seri(klon,klev,nbtr))
     512      ALLOCATE(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
     513      ALLOCATE(d_ql_dyn(klon,klev),d_qs_dyn(klon,klev))
     514      ALLOCATE(d_q_dyn2d(klon),d_ql_dyn2d(klon),d_qs_dyn2d(klon))
     515      ALLOCATE(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
     516      ALLOCATE(d_tr_dyn(klon,klev,nbtr))                   !RomP
     517      ALLOCATE(d_t_con(klon,klev),d_q_con(klon,klev))
     518      ALLOCATE(d_u_con(klon,klev),d_v_con(klon,klev))
     519      ALLOCATE(d_t_wake(klon,klev),d_q_wake(klon,klev))
     520      ALLOCATE(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
     521      ALLOCATE(d_t_lwr(klon,klev),d_t_lw0(klon,klev))
     522      ALLOCATE(d_t_swr(klon,klev),d_t_sw0(klon,klev))
     523      ALLOCATE(d_ql_lsc(klon,klev),d_qi_lsc(klon,klev))
     524      ALLOCATE(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev))
     525      ALLOCATE(d_t_ajs(klon,klev),d_q_ajs(klon,klev))
    520526!nrlmd<
    521       allocate(d_t_ajs_w(klon,klev),d_q_ajs_w(klon,klev))
    522       allocate(d_t_ajs_x(klon,klev),d_q_ajs_x(klon,klev))
     527      ALLOCATE(d_t_ajs_w(klon,klev),d_q_ajs_w(klon,klev))
     528      ALLOCATE(d_t_ajs_x(klon,klev),d_q_ajs_x(klon,klev))
    523529!>nrlmd
    524       allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
    525       allocate(d_t_eva(klon,klev),d_q_eva(klon,klev))
    526       allocate(d_ql_eva(klon,klev),d_qi_eva(klon,klev))
    527       allocate(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
    528       allocate(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
    529       allocate(plul_st(klon),plul_th(klon))
    530       allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
     530      ALLOCATE(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
     531      ALLOCATE(d_t_eva(klon,klev),d_q_eva(klon,klev))
     532      ALLOCATE(d_ql_eva(klon,klev),d_qi_eva(klon,klev))
     533      ALLOCATE(d_t_lscst(klon,klev),d_q_lscst(klon,klev))
     534      ALLOCATE(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
     535      ALLOCATE(plul_st(klon),plul_th(klon))
     536      ALLOCATE(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
    531537!nrlmd+jyg<
    532       allocate(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
    533       allocate(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
     538      ALLOCATE(d_t_vdf_w(klon,klev),d_q_vdf_w(klon,klev))
     539      ALLOCATE(d_t_vdf_x(klon,klev),d_q_vdf_x(klon,klev))
    534540!>nrlmd+jyg
    535       allocate(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
    536       allocate(d_t_oli(klon,klev),d_t_oro(klon,klev))
    537       allocate(d_u_oli(klon,klev),d_v_oli(klon,klev))
    538       allocate(d_u_oro(klon,klev),d_v_oro(klon,klev))
    539       allocate(d_t_lif(klon,klev),d_t_ec(klon,klev))
    540       allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
    541       allocate(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
     541      ALLOCATE(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
     542      ALLOCATE(d_t_oli(klon,klev),d_t_oro(klon,klev))
     543      ALLOCATE(d_u_oli(klon,klev),d_v_oli(klon,klev))
     544      ALLOCATE(d_u_oro(klon,klev),d_v_oro(klon,klev))
     545      ALLOCATE(d_t_lif(klon,klev),d_t_ec(klon,klev))
     546      ALLOCATE(d_u_lif(klon,klev),d_v_lif(klon,klev))
     547      ALLOCATE(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
    542548! Special RRTM
    543       allocate(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
    544       allocate(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1))
    545 !
    546       allocate(topswad_aero(klon), solswad_aero(klon))
    547       allocate(topswai_aero(klon), solswai_aero(klon))
    548       allocate(topswad0_aero(klon), solswad0_aero(klon))
    549      ! LW diagnostics CK
    550       allocate(toplwad_aero(klon), sollwad_aero(klon))
    551       allocate(toplwai_aero(klon), sollwai_aero(klon))
    552       allocate(toplwad0_aero(klon), sollwad0_aero(klon))
    553       ! end
    554       allocate(topsw_aero(klon,naero_grp), solsw_aero(klon,naero_grp))
    555       allocate(topsw0_aero(klon,naero_grp), solsw0_aero(klon,naero_grp))
    556       allocate(topswcf_aero(klon,3), solswcf_aero(klon,3))
    557       allocate(du_gwd_hines(klon,klev),dv_gwd_hines(klon,klev))
    558       allocate(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
    559       allocate(east_gwstress(klon,klev),west_gwstress(klon,klev))
    560       allocate(d_t_hin(klon,klev))
    561       allocate(d_q_ch4(klon,klev))
    562 !      allocate(tausum_aero(klon,nwave,naero_spc))
    563 !      allocate(tau3d_aero(klon,klev,nwave,naero_spc))
    564       allocate(stratomask(klon,klev))
    565 !--correction mini bug OB
    566       allocate(tausum_aero(klon,nwave,naero_tot))
    567       allocate(tau3d_aero(klon,klev,nwave,naero_tot))
    568       allocate(scdnc(klon, klev))
    569       allocate(cldncl(klon))
    570       allocate(reffclwtop(klon))
    571       allocate(lcc(klon))
    572       allocate(reffclws(klon, klev))
    573       allocate(reffclwc(klon, klev))
    574       allocate(cldnvi(klon))
    575       allocate(lcc3d(klon, klev))
    576       allocate(lcc3dcon(klon, klev))
    577       allocate(lcc3dstra(klon, klev))
    578       allocate(od443aer(klon))
    579       allocate(od550aer(klon))
    580       allocate(od865aer(klon))
    581       allocate(abs550aer(klon))
    582       allocate(ec550aer(klon,klev))
    583       allocate(od550lt1aer(klon))
    584       allocate(sconcso4(klon))
    585       allocate(sconcno3(klon))
    586       allocate(sconcoa(klon))
    587       allocate(sconcbc(klon))
    588       allocate(sconcss(klon))
    589       allocate(sconcdust(klon))
    590       allocate(concso4(klon,klev))
    591       allocate(concno3(klon,klev))
    592       allocate(concoa(klon,klev))
    593       allocate(concbc(klon,klev))
    594       allocate(concss(klon,klev))
    595       allocate(concdust(klon,klev))
    596       allocate(loadso4(klon))
    597       allocate(loadoa(klon))
    598       allocate(loadbc(klon))
    599       allocate(loadss(klon))
    600       allocate(loaddust(klon))
    601       allocate(loadno3(klon))
    602       allocate(load_tmp1(klon))
    603       allocate(load_tmp2(klon))
    604       allocate(load_tmp3(klon))
     549      ALLOCATE(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
     550      ALLOCATE(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1))
     551!
     552      ALLOCATE(topswad_aero(klon), solswad_aero(klon))
     553      ALLOCATE(topswai_aero(klon), solswai_aero(klon))
     554      ALLOCATE(topswad0_aero(klon), solswad0_aero(klon))
     555      ALLOCATE(toplwad_aero(klon), sollwad_aero(klon))
     556      ALLOCATE(toplwai_aero(klon), sollwai_aero(klon))
     557      ALLOCATE(toplwad0_aero(klon), sollwad0_aero(klon))
     558      ALLOCATE(topsw_aero(klon,naero_grp), solsw_aero(klon,naero_grp))
     559      ALLOCATE(topsw0_aero(klon,naero_grp), solsw0_aero(klon,naero_grp))
     560      ALLOCATE(topswcf_aero(klon,3), solswcf_aero(klon,3))
     561      ALLOCATE(du_gwd_hines(klon,klev),dv_gwd_hines(klon,klev))
     562      ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
     563      ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev))
     564      ALLOCATE(d_t_hin(klon,klev))
     565      ALLOCATE(d_q_ch4(klon,klev))
     566      ALLOCATE(stratomask(klon,klev))
     567      ALLOCATE(tausum_aero(klon,nwave,naero_tot))
     568      ALLOCATE(drytausum_aero(klon,naero_tot))
     569      ALLOCATE(tau3d_aero(klon,klev,nwave,naero_tot))
     570      ALLOCATE(scdnc(klon, klev))
     571      ALLOCATE(cldncl(klon))
     572      ALLOCATE(reffclwtop(klon))
     573      ALLOCATE(lcc(klon))
     574      ALLOCATE(reffclws(klon, klev))
     575      ALLOCATE(reffclwc(klon, klev))
     576      ALLOCATE(cldnvi(klon))
     577      ALLOCATE(lcc3d(klon, klev))
     578      ALLOCATE(lcc3dcon(klon, klev))
     579      ALLOCATE(lcc3dstra(klon, klev))
     580      ALLOCATE(od443aer(klon))
     581      ALLOCATE(od550aer(klon))
     582      ALLOCATE(od865aer(klon))
     583      ALLOCATE(dryod550aer(klon))
     584      ALLOCATE(abs550aer(klon))
     585      ALLOCATE(ec550aer(klon,klev))
     586      ALLOCATE(od550lt1aer(klon))
     587      ALLOCATE(sconcso4(klon))
     588      ALLOCATE(sconcno3(klon))
     589      ALLOCATE(sconcoa(klon))
     590      ALLOCATE(sconcbc(klon))
     591      ALLOCATE(sconcss(klon))
     592      ALLOCATE(sconcdust(klon))
     593      ALLOCATE(concso4(klon,klev))
     594      ALLOCATE(concno3(klon,klev))
     595      ALLOCATE(concoa(klon,klev))
     596      ALLOCATE(concbc(klon,klev))
     597      ALLOCATE(concss(klon,klev))
     598      ALLOCATE(concdust(klon,klev))
     599      ALLOCATE(loadso4(klon))
     600      ALLOCATE(loadoa(klon))
     601      ALLOCATE(loadbc(klon))
     602      ALLOCATE(loadss(klon))
     603      ALLOCATE(loaddust(klon))
     604      ALLOCATE(loadno3(klon))
     605      ALLOCATE(load_tmp1(klon))
     606      ALLOCATE(load_tmp2(klon))
     607      ALLOCATE(load_tmp3(klon))
    605608
    606609!IM ajout variables CFMIP2/CMIP5
    … …  
    770773USE indice_sol_mod
    771774IMPLICIT NONE
    772       deallocate(t_seri,q_seri,ql_seri,qs_seri)
    773       deallocate(u_seri,v_seri)
    774       deallocate(l_mixmin,l_mix)
    775 
    776       deallocate(tr_seri)
    777       deallocate(d_t_dyn,d_q_dyn)
    778       deallocate(d_ql_dyn,d_qs_dyn)
    779       deallocate(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d)
    780       deallocate(d_u_dyn,d_v_dyn)
    781       deallocate(d_tr_dyn)                      !RomP
    782       deallocate(d_t_con,d_q_con)
    783       deallocate(d_u_con,d_v_con)
    784       deallocate(d_t_wake,d_q_wake)
    785       deallocate(d_t_lsc,d_q_lsc)
    786       deallocate(d_t_lwr,d_t_lw0)
    787       deallocate(d_t_swr,d_t_sw0)
    788       deallocate(d_ql_lsc,d_qi_lsc)
    789       deallocate(d_t_ajsb,d_q_ajsb)
    790       deallocate(d_t_ajs,d_q_ajs)
     775      DEALLOCATE(t_seri,q_seri,ql_seri,qs_seri)
     776      DEALLOCATE(u_seri,v_seri)
     777      DEALLOCATE(l_mixmin,l_mix)
     778
     779      DEALLOCATE(tr_seri)
     780      DEALLOCATE(d_t_dyn,d_q_dyn)
     781      DEALLOCATE(d_ql_dyn,d_qs_dyn)
     782      DEALLOCATE(d_q_dyn2d,d_ql_dyn2d,d_qs_dyn2d)
     783      DEALLOCATE(d_u_dyn,d_v_dyn)
     784      DEALLOCATE(d_tr_dyn)                      !RomP
     785      DEALLOCATE(d_t_con,d_q_con)
     786      DEALLOCATE(d_u_con,d_v_con)
     787      DEALLOCATE(d_t_wake,d_q_wake)
     788      DEALLOCATE(d_t_lsc,d_q_lsc)
     789      DEALLOCATE(d_t_lwr,d_t_lw0)
     790      DEALLOCATE(d_t_swr,d_t_sw0)
     791      DEALLOCATE(d_ql_lsc,d_qi_lsc)
     792      DEALLOCATE(d_t_ajsb,d_q_ajsb)
     793      DEALLOCATE(d_t_ajs,d_q_ajs)
    791794!nrlmd<
    792       deallocate(d_t_ajs_w,d_q_ajs_w)
    793       deallocate(d_t_ajs_x,d_q_ajs_x)
     795      DEALLOCATE(d_t_ajs_w,d_q_ajs_w)
     796      DEALLOCATE(d_t_ajs_x,d_q_ajs_x)
    794797!>nrlmd
    795       deallocate(d_u_ajs,d_v_ajs)
    796       deallocate(d_t_eva,d_q_eva)
    797       deallocate(d_ql_eva,d_qi_eva)
    798       deallocate(d_t_lscst,d_q_lscst)
    799       deallocate(d_t_lscth,d_q_lscth)
    800       deallocate(plul_st,plul_th)
    801       deallocate(d_t_vdf,d_q_vdf,d_t_diss)
     798      DEALLOCATE(d_u_ajs,d_v_ajs)
     799      DEALLOCATE(d_t_eva,d_q_eva)
     800      DEALLOCATE(d_ql_eva,d_qi_eva)
     801      DEALLOCATE(d_t_lscst,d_q_lscst)
     802      DEALLOCATE(d_t_lscth,d_q_lscth)
     803      DEALLOCATE(plul_st,plul_th)
     804      DEALLOCATE(d_t_vdf,d_q_vdf,d_t_diss)
    802805!nrlmd+jyg<
    803       deallocate(d_t_vdf_w,d_q_vdf_w)
    804       deallocate(d_t_vdf_x,d_q_vdf_x)
     806      DEALLOCATE(d_t_vdf_w,d_q_vdf_w)
     807      DEALLOCATE(d_t_vdf_x,d_q_vdf_x)
    805808!>nrlmd+jyg
    806       deallocate(d_u_vdf,d_v_vdf)
    807       deallocate(d_t_oli,d_t_oro)
    808       deallocate(d_u_oli,d_v_oli)
    809       deallocate(d_u_oro,d_v_oro)
    810       deallocate(d_t_lif,d_t_ec)
    811       deallocate(d_u_lif,d_v_lif)
    812       deallocate(d_ts, d_tr)
    813       deallocate(topswad_aero,solswad_aero)
    814       deallocate(topswai_aero,solswai_aero)
    815       deallocate(topswad0_aero,solswad0_aero)
    816       ! LW additional CK
    817       deallocate(toplwad_aero,sollwad_aero)
    818       deallocate(toplwai_aero,sollwai_aero)
    819       deallocate(toplwad0_aero,sollwad0_aero)
    820       ! end
    821       deallocate(topsw_aero,solsw_aero)
    822       deallocate(topsw0_aero,solsw0_aero)
    823       deallocate(topswcf_aero,solswcf_aero)
    824       deallocate(stratomask)
    825       deallocate(tausum_aero)
    826       deallocate(tau3d_aero)
    827       deallocate(scdnc)
    828       deallocate(cldncl)
    829       deallocate(reffclwtop)
    830       deallocate(lcc)
    831       deallocate(reffclws)
    832       deallocate(reffclwc)
    833       deallocate(cldnvi)
    834       deallocate(lcc3d)
    835       deallocate(lcc3dcon)
    836       deallocate(lcc3dstra)
    837       deallocate(od443aer)
    838       deallocate(od550aer)
    839       deallocate(od865aer)
    840       deallocate(abs550aer)
    841       deallocate(ec550aer)
    842       deallocate(od550lt1aer)
    843       deallocate(sconcso4)
    844       deallocate(sconcno3)
    845       deallocate(sconcoa)
    846       deallocate(sconcbc)
    847       deallocate(sconcss)
    848       deallocate(sconcdust)
    849       deallocate(concso4)
    850       deallocate(concno3)
    851       deallocate(concoa)
    852       deallocate(concbc)
    853       deallocate(concss)
    854       deallocate(concdust)
    855       deallocate(loadso4)
    856       deallocate(loadoa)
    857       deallocate(loadbc)
    858       deallocate(loadss)
    859       deallocate(loaddust)
    860       deallocate(loadno3)
    861       deallocate(load_tmp1)
    862       deallocate(load_tmp2)
    863       deallocate(load_tmp3)
    864       deallocate(du_gwd_hines,dv_gwd_hines,d_t_hin)
    865       deallocate(d_q_ch4)
    866       deallocate(dv_gwd_rando,dv_gwd_front)
    867       deallocate(east_gwstress,west_gwstress)
     809      DEALLOCATE(d_u_vdf,d_v_vdf)
     810      DEALLOCATE(d_t_oli,d_t_oro)
     811      DEALLOCATE(d_u_oli,d_v_oli)
     812      DEALLOCATE(d_u_oro,d_v_oro)
     813      DEALLOCATE(d_t_lif,d_t_ec)
     814      DEALLOCATE(d_u_lif,d_v_lif)
     815      DEALLOCATE(d_ts, d_tr)
     816      DEALLOCATE(topswad_aero,solswad_aero)
     817      DEALLOCATE(topswai_aero,solswai_aero)
     818      DEALLOCATE(topswad0_aero,solswad0_aero)
     819      DEALLOCATE(toplwad_aero,sollwad_aero)
     820      DEALLOCATE(toplwai_aero,sollwai_aero)
     821      DEALLOCATE(toplwad0_aero,sollwad0_aero)
     822      DEALLOCATE(topsw_aero,solsw_aero)
     823      DEALLOCATE(topsw0_aero,solsw0_aero)
     824      DEALLOCATE(topswcf_aero,solswcf_aero)
     825      DEALLOCATE(stratomask)
     826      DEALLOCATE(tausum_aero)
     827      DEALLOCATE(drytausum_aero)
     828      DEALLOCATE(tau3d_aero)
     829      DEALLOCATE(scdnc)
     830      DEALLOCATE(cldncl)
     831      DEALLOCATE(reffclwtop)
     832      DEALLOCATE(lcc)
     833      DEALLOCATE(reffclws)
     834      DEALLOCATE(reffclwc)
     835      DEALLOCATE(cldnvi)
     836      DEALLOCATE(lcc3d)
     837      DEALLOCATE(lcc3dcon)
     838      DEALLOCATE(lcc3dstra)
     839      DEALLOCATE(od443aer)
     840      DEALLOCATE(od550aer)
     841      DEALLOCATE(od865aer)
     842      DEALLOCATE(dryod550aer)
     843      DEALLOCATE(abs550aer)
     844      DEALLOCATE(ec550aer)
     845      DEALLOCATE(od550lt1aer)
     846      DEALLOCATE(sconcso4)
     847      DEALLOCATE(sconcno3)
     848      DEALLOCATE(sconcoa)
     849      DEALLOCATE(sconcbc)
     850      DEALLOCATE(sconcss)
     851      DEALLOCATE(sconcdust)
     852      DEALLOCATE(concso4)
     853      DEALLOCATE(concno3)
     854      DEALLOCATE(concoa)
     855      DEALLOCATE(concbc)
     856      DEALLOCATE(concss)
     857      DEALLOCATE(concdust)
     858      DEALLOCATE(loadso4)
     859      DEALLOCATE(loadoa)
     860      DEALLOCATE(loadbc)
     861      DEALLOCATE(loadss)
     862      DEALLOCATE(loaddust)
     863      DEALLOCATE(loadno3)
     864      DEALLOCATE(load_tmp1)
     865      DEALLOCATE(load_tmp2)
     866      DEALLOCATE(load_tmp3)
     867      DEALLOCATE(du_gwd_hines,dv_gwd_hines,d_t_hin)
     868      DEALLOCATE(d_q_ch4)
     869      DEALLOCATE(dv_gwd_rando,dv_gwd_front)
     870      DEALLOCATE(east_gwstress,west_gwstress)
    868871
    869872!IM ajout variables CFMIP2/CMIP5
    870       deallocate(topswad_aerop, solswad_aerop)
    871       deallocate(topswai_aerop, solswai_aerop)
    872       deallocate(topswad0_aerop, solswad0_aerop)
    873       deallocate(topsw_aerop, topsw0_aerop)
    874       deallocate(solsw_aerop, solsw0_aerop)
    875       deallocate(topswcf_aerop, solswcf_aerop)
     873      DEALLOCATE(topswad_aerop, solswad_aerop)
     874      DEALLOCATE(topswai_aerop, solswai_aerop)
     875      DEALLOCATE(topswad0_aerop, solswad0_aerop)
     876      DEALLOCATE(topsw_aerop, topsw0_aerop)
     877      DEALLOCATE(solsw_aerop, solsw0_aerop)
     878      DEALLOCATE(topswcf_aerop, solswcf_aerop)
    876879
    877880!CK LW diagnostics
    878       deallocate(toplwad_aerop, sollwad_aerop)
    879       deallocate(toplwai_aerop, sollwai_aerop)
    880       deallocate(toplwad0_aerop, sollwad0_aerop)
     881      DEALLOCATE(toplwad_aerop, sollwad_aerop)
     882      DEALLOCATE(toplwai_aerop, sollwai_aerop)
     883      DEALLOCATE(toplwad0_aerop, sollwad0_aerop)
    881884
    882885! FH Ajout de celles nécessaires au phys_output_write_mod
Note: See TracChangeset for help on using the changeset viewer.