Changeset 5927 for LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

Timestamp:

Dec 12, 2025, 5:26:10 PM (7 weeks ago)

Author:

Sebastien Nguyen

Message:

Changes to compile LMDZ-OR-ISO and wrtie output variables Rsol isotopes soil ratio) xtevap xtcoastal xtrivflu. Changes from CA and ND to write output variables xtprw (precipitatble water) uxt and vxt (meridional and zonal advected humidity) Rlandice and xtsnow.

File:

• LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -22 +22 @@
 !GG  USE surface_data,     ONLY : type_ocean, version_ocean
   USE surface_data,     ONLY : type_ocean, version_ocean, iflag_seaice, &
-                                   iflag_seaice_alb, iflag_leads
+                               iflag_seaice_alb, iflag_leads
 !GG
   USE phyetat0_get_mod, ONLY : phyetat0_get, phyetat0_srf
@@ -125 +125 @@
   REAL xtrun_off_lic_0(niso,klon)
   REAL Rland_ice(niso,klon)
+  REAL Rsol(niso,klon)
 #endif
 
@@ -650 +651 @@
   CALL phyisoetat0 (snow,run_off_lic_0, &
   &           xtsnow,xtrun_off_lic_0, &
-  &           Rland_ice)
+  &           Rland_ice,Rsol)
 #ifdef ISOVERIF 
   WRITE(*,*) 'phyetat0 1074'
@@ -805 +806 @@
   !GG
 #ifdef ISO
-  CALL pbl_surface_init_iso(xtsnow,Rland_ice)
+  CALL pbl_surface_init_iso(xtsnow,Rland_ice,Rsol)
 #endif
   endif