Ignore:
Timestamp:
Nov 5, 2024, 4:46:57 PM (2 weeks ago)
Author:
jbclement
Message:

PEM:
Correction in the formula to update the potential temperature introduced in r3442.
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3490 r3492  
    11631163    do l = 1,nlayer
    11641164        do i = 1,ip1jmp1
    1165             teta(i,l)= teta(i,l)*(1 + (ps(i) - ps0(i))*year_iter/ps(i))**kappa
     1165            teta(i,l)= teta(i,l)*(ps0(i)/ps(i))**kappa
    11661166        enddo
    11671167    enddo
Note: See TracChangeset for help on using the changeset viewer.