Changeset 4040 for trunk/LMDZ.PLUTO/libf/phypluto/surfdat_h.F90

Timestamp:

Feb 4, 2026, 10:38:48 PM (25 hours ago)

Author:

tbertrand

Message:

PLUTO PCM:
Implementing paleo mode (to be continued)
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/surfdat_h.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/surfdat_h.F90

@@ -13 +13 @@
        real,allocatable,dimension(:) :: phisfi ! geopotential at ground level
 !$OMP THREADPRIVATE(phisfi)
+       real,allocatable,dimension(:) :: phisfibed ! (paleo) geopotential of the bedrock (= phisfi-qsurf/1000*g)
+!$OMP THREADPRIVATE(phisfibed)
+       real,allocatable,dimension(:,:) :: qsurfyear ! (paleo) kg.m-2 averaged mass of ice lost/gained in the last year
+!$OMP THREADPRIVATE(qsurfyear)
        real,dimension(2) :: emisice ! ice emissivity; 1:Northern hemisphere 2:Southern hemisphere
        real emissiv