Changeset 2485 for LMDZ5/trunk


Ignore:
Timestamp:
Apr 1, 2016, 11:21:11 PM (9 years ago)
Author:
oboucher
Message:

simplification to water mass fixer for the physics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2481 r2485  
    937937    !albedo SB <<<
    938938
    939     !--OB variables for mass fixer
     939    !--OB variables for mass fixer (hard coded for now)
    940940    logical, parameter :: mass_fixer=.false.
    941941    real qql1(klon),qql2(klon),zdz,corrqql
     
    15991599    DO i = 1, klon
    16001600      DO k = 1, klev
    1601         zdz=(paprs(i,k)-paprs(i,k+1))/RG
    1602         qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zdz
     1601        qql1(i)=qql1(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k)
    16031602      ENDDO
    16041603    ENDDO
     
    45524551    DO i = 1, klon
    45534552      DO k = 1, klev
    4554         zdz=(paprs(i,k)-paprs(i,k+1))/RG
    4555         qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zdz
     4553        qql2(i)=qql2(i)+(q_seri(i,k)+ql_seri(i,k))*zmasse(i,k)
    45564554      ENDDO
    45574555    ENDDO
Note: See TracChangeset for help on using the changeset viewer.