Changeset 4538 for LMDZ6/trunk
- Timestamp:
- May 16, 2023, 7:21:59 PM (18 months ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90
r4529 r4538 425 425 rhod=p1lay(i)/RD/temp_air(i) 426 426 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) 428 428 !fluxbs(i)= zeta_bs*rhod*ws1(i)*cdragm(i)*(qbs1(i)-qsalt(i)) 429 429 enddo -
LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90
r4529 r4538 514 514 rhod=p1lay(i)/RD/temp_air(i) 515 515 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) 517 517 !fluxbs(i)= zeta_bs*rhod*ws1(i)*cdragm(i)*(qbs1(i)-qsalt(i)) 518 518 enddo
Note: See TracChangeset
for help on using the changeset viewer.