Changeset 2318 for LMDZ5/trunk


Ignore:
Timestamp:
Jun 26, 2015, 9:41:13 AM (9 years ago)
Author:
jyg
Message:

Bug fixing concerning the adiabatic adjustment of
the wake region (svn2309).

File:
1 edited

Legend:

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

    r2311 r2318  
    21642164     DO k=1,klev
    21652165        DO i=1,klon
    2166           t_wake(i,k) = t_wake(i,k) + d_t_adjwk(i,k)
    2167           q_wake(i,k) = q_wake(i,k) + d_q_adjwk(i,k)
    2168           wake_deltat(i,k) = wake_deltat(i,k) + d_t_adjwk(i,k)
    2169           wake_deltaq(i,k) = wake_deltaq(i,k) + d_q_adjwk(i,k)
     2166          IF (wake_s(i) .GT. 1.e-3) THEN
     2167            t_wake(i,k) = t_wake(i,k) + d_t_adjwk(i,k)
     2168            q_wake(i,k) = q_wake(i,k) + d_q_adjwk(i,k)
     2169            wake_deltat(i,k) = wake_deltat(i,k) + d_t_adjwk(i,k)
     2170            wake_deltaq(i,k) = wake_deltaq(i,k) + d_q_adjwk(i,k)
     2171          ENDIF
    21702172        ENDDO
    21712173     ENDDO
Note: See TracChangeset for help on using the changeset viewer.