Ignore:
Timestamp:
May 16, 2023, 7:21:59 PM (2 years ago)
Author:
evignon
Message:

fix bug in surf_landice_mod

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4529 r4538  
    425425              rhod=p1lay(i)/RD/temp_air(i)
    426426              fluxbs(i)=rhod*ws1(i)*cdragm(i)*zeta_bs*(AcoefQBS(i)-qsalt(i)) &
    427                        / (1.-rhod*ws1(i)*zeta_bs*BcoefQBS(i)*dtime)
     427                       / (1.-rhod*ws1(i)*zeta_bs*cdragm(i)*BcoefQBS(i)*dtime)
    428428              !fluxbs(i)= zeta_bs*rhod*ws1(i)*cdragm(i)*(qbs1(i)-qsalt(i))
    429429       enddo
Note: See TracChangeset for help on using the changeset viewer.