Changeset 4528


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

fix issue in phylmdiso from commit 4526 in phylmd

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
3 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, &

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

    r4523 r4528  
    490490!****************************************************************************************
    491491    IF (ok_bs) THEN
    492       precip_totsnow=precip_snow+precip_bs
    493       evap_totsnow=evap-fluxbs ! flux bs is positive towards the surface (snow erosion)
     492      precip_totsnow(:)=precip_snow(:)+precip_bs(:)
     493      evap_totsnow(:)=evap(:)-fluxbs(:) ! flux bs is positive towards the surface (snow erosion)
    494494    ELSE
    495       precip_totsnow=precip_snow
    496       evap_totsnow=evap
     495      precip_totsnow(:)=precip_snow(:)
     496      evap_totsnow(:)=evap(:)
    497497    ENDIF
    498498

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

    r4523 r4528  
    206206
    207207    IF (ok_bs) THEN
    208        precip_totsnow=precip_snow+precip_bs
     208       precip_totsnow(:)=precip_snow(:)+precip_bs(:)
    209209    ELSE
    210        precip_totsnow=precip_snow
     210       precip_totsnow(:)=precip_snow(:)
    211211    ENDIF
    212212
Note: See TracChangeset for help on using the changeset viewer.