Ignore:
Timestamp:
May 9, 2023, 5:13:31 PM (17 months ago)
Author:
evignon
Message:

fix issue in phylmdiso from commit 4526 in phylmd

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4523 r4528  
    171171
    172172IF (ok_bs) THEN
    173 precip_totsnow=precip_snow+precip_bs
     173precip_totsnow(:)=precip_snow(:)+precip_bs(:)
    174174ELSE
    175 precip_totsnow=precip_snow
     175precip_totsnow(:)=precip_snow(:)
    176176ENDIF
    177177!****************************************************************************************
    … …  
    240240            precip_rain, precip_totsnow, lwdown_m, swnet, swdown, &
    241241            pref_tmp, q2m, t2m, &
    242             evap, fluxsens, fluxlat,fluxbs, &             
     242            evap, fluxsens, fluxlat,  &             
    243243            tsol_rad, tsurf_new, alb1_new, alb2_new, &
    244244            emis_new, z0m, z0h, qsurf, &
Note: See TracChangeset for help on using the changeset viewer.