Changeset 6109 for LMDZ6/branches/LMDZISOdevSN/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Mar 17, 2026, 1:49:29 PM (3 weeks ago)

Author:

Sebastien Nguyen

Message:

fixed bug where Rland_ice and other Orchidee variables where sent to output when lmdz was in bucket mode

File:

• LMDZ6/branches/LMDZISOdevSN/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZISOdevSN/libf/phylmd/phys_output_write_mod.F90

@@ -3224 +3224 @@
         CALL histwrite_phy(o_xtpluc(ixt), zx_tmp_fi2d)
         CALL histwrite_phy(o_xtevap(ixt),   xtevap(ixt,:))
-        CALL histwrite_phy(o_Rland_ice(ixt), Rland_ice(ixt,:))
+        IF (ok_veget) THEN
+          CALL histwrite_phy(o_Rland_ice(ixt), Rland_ice(ixt,:))
+        ENDIF
         CALL histwrite_phy(o_xtovap(ixt),  xt_seri(ixt,:,:))
         CALL histwrite_phy(o_xtoliq(ixt), xtl_seri(ixt,:,:))
@@ -3230 +3232 @@
         !! runoff land bucket + soil isotopes ratio + river and costal flows PRSN 2025
         CALL histwrite_phy(o_xtrunoff_diag(ixt), xtrunoff_diag(ixt,:))
-        CALL histwrite_phy(o_xtriverflow(ixt),   xtriverflow(ixt,:))
-        CALL histwrite_phy(o_xtcoastalflow(ixt),   xtcoastalflow(ixt,:))
-        CALL histwrite_phy(o_Rsol(ixt),   Rsol(ixt,:))
+        IF (ok_veget) THEN
+          CALL histwrite_phy(o_xtriverflow(ixt),   xtriverflow(ixt,:))
+          CALL histwrite_phy(o_xtcoastalflow(ixt),   xtcoastalflow(ixt,:))
+          CALL histwrite_phy(o_Rsol(ixt),   Rsol(ixt,:))
+        ENDIF
 
         DO nsrf = 1, nbsrf ! ajout Camille 8 mai 2023