Changeset 8297


Ignore:
Timestamp:
2023-11-14T10:54:41+01:00 (7 months ago)
Author:
josefine.ghattas
Message:

As done in the trunk [8296]: Corrected bug, missing brackets, for case nobio when ROUGH_DYN=n. Found by Pierre Tiengou, see ticket #956

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/condveg.f90

    r8273 r8297  
    15281528       ! roughness length 
    15291529       dragm(:) = dragm(:) + frac_nobio(:,jv) * (ct_karman/LOG(ztmp(:)/z0_nobio))**2 
    1530        dragh(:) = dragh(:) + frac_nobio(:,jv) * (ct_karman/LOG(ztmp(:)/z0_nobio/ratio_z0m_z0h(1)))*(ct_karman/LOG(ztmp(:)/z0_nobio)) 
     1530       dragh(:) = dragh(:) + frac_nobio(:,jv) * (ct_karman/LOG(ztmp(:)/(z0_nobio/ratio_z0m_z0h(1))))*(ct_karman/LOG(ztmp(:)/z0_nobio)) 
    15311531 
    15321532    ENDDO ! Loop over # of non-vegative surfaces 
Note: See TracChangeset for help on using the changeset viewer.