Changeset 3148 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Dec 6, 2023, 2:38:04 PM (13 months ago)
Author:
jbclement
Message:

Mars PCM:
Tiny fix from r3147 (Fortran fixed format).
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r3147 r3148  
    26712671            if (water) then
    26722672             ! both water and dust contribute
    2673              fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
     2673            fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
    26742674     &                    exp(-(tau(ig,iaer_dust_doubleq)+
    26752675     &                          tau(ig,iaer_h2o_ice))/mu0(ig))
    26762676            else
    26772677             ! only dust contributes
    2678              fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
     2678            fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*
    26792679     &                    exp(-(tau(ig,iaer_dust_doubleq))/mu0(ig))
    26802680            endif ! of if (water)
Note: See TracChangeset for help on using the changeset viewer.