Changeset 5662 for LMDZ6/trunk/libf/phylmd/Dust

Timestamp:

May 20, 2025, 4:24:41 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Ajout du modèle thermodynamique de glace de mer interactive améliorant les flux échangés à la surface de la banquise (Doctorat de Nicolas Michalezyk, Contact : Nicolas Michaleyk, Guillaume Gastineau)

File:

• LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -378 +378 @@
          scdnc, cldncl, reffclws, reffclwc, cldnvi, &
          lcc, lcc3d, lcc3dcon, lcc3dstra, reffclwtop
-    USE ocean_slab_mod, ONLY: tslab, slab_bilg, tice, seaice
+    USE ocean_slab_mod, ONLY: tslab, slab_bilg, tice_slab, seaice
     USE pbl_surface_mod, ONLY: snow
     USE indice_sol_mod, ONLY: nbsrf
@@ -955 +955 @@
           IF (version_ocean=='sicINT') THEN
               CALL histwrite_phy(o_slab_bilg, slab_bilg)
-              CALL histwrite_phy(o_slab_tice, tice)
+              CALL histwrite_phy(o_slab_tice, tice_slab)
               CALL histwrite_phy(o_slab_sic, seaice)
           ENDIF