Changeset 3492 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Nov 5, 2024, 4:46:57 PM (7 weeks ago)

Author:

jbclement

Message:

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

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (2 diffs)
• pem.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -449 +449 @@
 Update and correction for the visualization of the layerings over time.
 
-24/10/2024 == EV
+== 24/10/2024 == EV
 adding the NS dynamic subsurface ice module in the PEM
 
@@ -457 +457 @@
 == 04/11/2024 == JBC
 Correction of initialization of 'icetable_dynamic' and the management of the flag.
+
+== 05/11/2024 == JBC
+Correction in the formula to update the potential temperature introduced in r3442.

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

@@ -1163 +1163 @@
     do l = 1,nlayer
         do i = 1,ip1jmp1
-            teta(i,l)= teta(i,l)*(1 + (ps(i) - ps0(i))*year_iter/ps(i))**kappa
+            teta(i,l)= teta(i,l)*(ps0(i)/ps(i))**kappa
         enddo
     enddo