Changeset 4538


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

fix bug in surf_landice_mod

Location:
LMDZ6/trunk/libf
Files:
2 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

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

    r4529 r4538  
    514514              rhod=p1lay(i)/RD/temp_air(i)
    515515              fluxbs(i)=rhod*ws1(i)*cdragm(i)*zeta_bs*(AcoefQBS(i)-qsalt(i)) &
    516                        / (1.-rhod*ws1(i)*zeta_bs*BcoefQBS(i)*dtime)
     516                       / (1.-rhod*ws1(i)*zeta_bs*cdragm(i)*BcoefQBS(i)*dtime)
    517517              !fluxbs(i)= zeta_bs*rhod*ws1(i)*cdragm(i)*(qbs1(i)-qsalt(i))
    518518       enddo
Note: See TracChangeset for help on using the changeset viewer.