Changeset 4771

Timestamp:

Dec 11, 2023, 9:48:18 AM (13 months ago)

Author:

idelkadi

Message:

Correction: output of the cloud fraction sw from Ecrad corresponding to the 2nd call

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/phys_output_write_mod.F90 (modified) (1 diff)

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

@@ -1080 +1080 @@
      CALL histwrite_phy(o_cloud_cover_sw, cloud_cover_sw)
      if (ok_3Deffect) then
-        IF (vars_defined) THEN
+       CALL histwrite_phy(o_cloud_cover_sw_s2, cloud_cover_sw_s2)
+       IF (vars_defined) THEN
           zx_tmp_fi2d = solsw_s2*swradcorr
        ENDIF