Changeset 5927 for LMDZ6/trunk/libf/phylmdiso/phyredem.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/phyredem.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmdiso/phyredem.F90

@@ -92 +92 @@
   REAL xtrun_off_lic_0(niso,klon)
   REAL Rland_ice(niso,klon)
+  REAL Rsol(niso,klon)
 #endif
 
@@ -112 +113 @@
      CALL pbl_surface_final(fder, snow, qsurf,  tsoil &
 #ifdef ISO
-       ,xtsnow,Rland_ice &
+       ,xtsnow,Rland_ice,Rsol &
 #endif       
        )
@@ -485 +486 @@
     CALL phyisoredem (pass, &
    &           xtsnow, &
-   &           xtrun_off_lic_0,Rland_ice, &
+   &           xtrun_off_lic_0,Rland_ice, Rsol, &
    &           run_off_lic_0)
 #endif
@@ -555 +556 @@
 ! mais elle a besoin de put_field_srf1 qui est contenue 
 ! dans la subroutine phyredem. Si on veut mettre cette 
-! routine dans isotopes_mod, il faudrait convertir ce 
+! routine dans isotopes_mod, il faudrait convertir ce
 ! fichier en module pour pouvoir en appeler des routines
 
 SUBROUTINE phyisoredem (pass, &
      &          xtsnow, &
-     &          xtrun_off_lic_0,Rland_ice, &
+     &          xtrun_off_lic_0,Rland_ice, Rsol, &
      &          run_off_lic_0) 
  USE dimphy
@@ -593 +594 @@
   REAL, INTENT(IN)    :: xtrun_off_lic_0(niso,klon)
   REAL, INTENT(IN)    :: Rland_ice(niso,klon)
+  REAL, INTENT(IN)    :: Rsol(niso,klon)
   REAL, INTENT(IN)    :: run_off_lic_0(klon)
   INTEGER, INTENT(IN) :: pass
@@ -691 +693 @@
       CALL put_field(pass,  "Rland_ice"//TRIM(outiso), "ratio land ice",      iso_tmp)
 
+      iso_tmp(:)=Rsol(ixt,:)
+      CALL put_field(pass,  "Rsol"//TRIM(outiso), "ratio land soil",      iso_tmp)
+
       iso_tmp(:)=xtrun_off_lic_0(ixt,:)
       CALL put_field(pass,"XTRUNOFFLIC0"//TRIM(outiso), "Runofflic0",  iso_tmp)