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

Timestamp:

Mar 19, 2026, 4:55:37 PM (3 weeks ago)

Author:

Sebastien Nguyen

Message:

-10 routines avant test post pbl_surface

File:

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

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

@@ -3209 +3209 @@
     !write(*,*) 'tmp phys_output_write: ntiso=',ntiso
 
+    zx_tmp_fi2d=0. ; zx_tmp_fi3d=0.
     DO ixt = 1, ntiso
         !write(*,*) 'ixt,o_xtovap(ixt)=',ixt,o_xtovap(ixt)
@@ -3224 +3225 @@
         CALL histwrite_phy(o_xtpluc(ixt), zx_tmp_fi2d)
         CALL histwrite_phy(o_xtevap(ixt),   xtevap(ixt,:))
-        IF (ok_veget) THEN
-          CALL histwrite_phy(o_Rland_ice(ixt), Rland_ice(ixt,:))
-        ENDIF
+
+        IF (vars_defined) zx_tmp_fi2d(:) = Rland_ice(ixt,:)
+        CALL histwrite_phy(o_Rland_ice(ixt), zx_tmp_fi2d)
         CALL histwrite_phy(o_xtovap(ixt),  xt_seri(ixt,:,:))
         CALL histwrite_phy(o_xtoliq(ixt), xtl_seri(ixt,:,:))
@@ -3232 +3233 @@
         !! runoff land bucket + soil isotopes ratio + river and costal flows PRSN 2025
         CALL histwrite_phy(o_xtrunoff_diag(ixt), xtrunoff_diag(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
+          !! LMDZORISO variables set to 0 and not updating in bucket
+        CALL histwrite_phy(o_xtriverflow(ixt),   xtriverflow(ixt,:))
+        CALL histwrite_phy(o_xtcoastalflow(ixt),   xtcoastalflow(ixt,:))
+        CALL histwrite_phy(o_Rsol(ixt),   Rsol(ixt,:))
 
         DO nsrf = 1, nbsrf ! ajout Camille 8 mai 2023