Changeset 5022 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Jul 5, 2024, 4:38:48 PM (2 months ago)

Author:

Sebastien Nguyen

Message:

include ISO keys in pbl_surface and associated routines in phylmd

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -207 +207 @@
 ! Isotopes
          o_xtprecip,o_xtplul,o_xtpluc,o_xtovap,o_xtoliq,o_xtcond, &
+         o_runoff_diag, o_xtrunoff_diag, &
          o_xtevap,o_dxtdyn,o_dxtldyn,o_dxtcon,o_dxtlsc,o_dxteva, &
          o_dxtajs,o_dxtvdf,o_dxtthe, o_dxtch4, &
@@ -392 +393 @@
         d_xt_ajs, d_xt_ajsb, &
         d_xt_prod_nucl,d_xt_cosmo,d_xt_decroiss, &
+        runoff_diag, xtrunoff_diag, &
 #endif
          ep, epmax_diag, &  ! epmax_cape
@@ -2799 +2801 @@
 #ifdef ISO
     !write(*,*) 'tmp phys_output_write: ntiso=',ntiso
+    !! runoff land bucket - ajout S. Nguyen 25 avril 2024
+    CALL histwrite_phy(o_runoff_diag, runoff_diag)
+
     do ixt=1,ntiso
         !write(*,*) 'ixt,o_xtovap(ixt)=',ixt,o_xtovap(ixt)
@@ -2812 +2817 @@
         CALL histwrite_phy(o_xtovap(ixt),  xt_seri(ixt,:,:))
         CALL histwrite_phy(o_xtoliq(ixt), xtl_seri(ixt,:,:))
+
+        !! runoff land bucket - ajout S. Nguyen 25 avril 2024
+        CALL histwrite_phy(o_xtrunoff_diag(ixt), xtrunoff_diag(ixt,:))
+
 
         DO nsrf = 1, nbsrf ! ajout Camille 8 mai 2023