Ignore:
Timestamp:
Oct 20, 2025, 10:36:45 AM (6 months ago)
Author:
debatzbr
Message:

Pluto PCM: Add optical diagnostics for aerosols
BBT

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/kcm1d.F90

    r3718 r3929  
    8484  real int_dtaui(1,llm,L_NSPECTI)
    8585  real int_dtauv(1,llm,L_NSPECTV)
     86  real int_dtauv_aer(1,llm,L_NSPECTV,naerkind)
     87  real int_wbarv_aer(1,llm,L_NSPECTV,naerkind)
    8688  real Eatmtot
    8789
    … …  
    374376          albedo_wv,albedo_equivalent,                    &
    375377          emis,mu0,plev,play,temp,                        &
    376           tsurf,fract,dist_star,dtau_aer,muvar,            &
     378          tsurf,fract,dist_star,dtau_aer,muvar,           &
    377379          dtlw,dtsw,fluxsurf_lw,fluxsurf_sw,              &
    378380          fluxsurfabs_sw,fluxtop_lw,                      &
    379381          fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu,     &
    380           int_dtaui,int_dtauv,                            &
     382          int_dtaui,int_dtauv,int_dtauv_aer,int_wbarv_aer,&
    381383          tau_col,firstcall,lastcall)
    382384
    … …  
    426428  call callcorrk(1,nlayer,q,nq,qsurf,                          &
    427429       albedo_wv,albedo_equivalent,emis,mu0,plev,play,temp,    &
    428        tsurf,fract,dist_star,dtau_aer,muvar,                    &
     430       tsurf,fract,dist_star,dtau_aer,muvar,                   &
    429431       dtlw,dtsw,fluxsurf_lw,fluxsurf_sw,fluxsurfabs_sw,       &
    430432       fluxtop_lw, fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu, &
    431        int_dtaui,int_dtauv,                                    &
     433       int_dtaui,int_dtauv,int_dtauv_aer,int_wbarv_aer,        &
    432434       tau_col,firstcall,lastcall)
    433435
Note: See TracChangeset for help on using the changeset viewer.