Ignore:
Timestamp:
May 8, 2023, 2:35:08 PM (13 months ago)
Author:
evignon
Message:

fix bug from merge of blowing snow branch

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4523 r4526  
    137137
    138138IF (ok_bs) THEN
    139 precip_totsnow=precip_snow+precip_bs
     139precip_totsnow(:)=precip_snow(:)+precip_bs(:)
    140140ELSE
    141 precip_totsnow=precip_snow
     141precip_totsnow(:)=precip_snow(:)
    142142ENDIF
    143143!****************************************************************************************
    … …  
    180180            precip_rain, precip_totsnow, lwdown_m, swnet, swdown, &
    181181            pref_tmp, q2m, t2m, &
    182             evap, fluxsens, fluxlat,fluxbs, &             
     182            evap, fluxsens, fluxlat,  &             
    183183            tsol_rad, tsurf_new, alb1_new, alb2_new, &
    184184            emis_new, z0m, z0h, qsurf, &
Note: See TracChangeset for help on using the changeset viewer.