Changeset 5662 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

May 20, 2025, 4:24:41 PM (3 weeks 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/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -218 +218 @@
       REAL,ALLOCATABLE,SAVE :: O3sumSTD(:,:,:), O3daysumSTD(:,:,:)
 !$OMP THREADPRIVATE(O3sumSTD,O3daysumSTD) 
+!GG
+      REAL,ALLOCATABLE,SAVE :: hice(:)
+!$OMP THREADPRIVATE(hice)
+      REAL,ALLOCATABLE,SAVE :: tice(:)
+!$OMP THREADPRIVATE(tice)
+      REAL,ALLOCATABLE,SAVE :: bilg_cumul(:)
+!$OMP THREADPRIVATE(bilg_cumul)
+!GG
 !IM begin
       REAL,ALLOCATABLE,SAVE :: wlevSTD(:,:), ulevSTD(:,:), vlevSTD(:,:)
@@ -719 +727 @@
       ALLOCATE(zuthe(klon),zvthe(klon))
       ALLOCATE(alb_neig(klon))
+!GG
+      ALLOCATE(hice(klon))
+      ALLOCATE(tice(klon))
+      ALLOCATE(bilg_cumul(klon))
+!GG
 !cloud base mass flux
       ALLOCATE(ema_cbmf(klon))
@@ -945 +958 @@
       DEALLOCATE(zuthe, zvthe)
       DEALLOCATE(alb_neig)
+!GG
+      DEALLOCATE(hice)
+      DEALLOCATE(tice)
+      DEALLOCATE(bilg_cumul)
+!GG
       DEALLOCATE(ema_cbmf)
       DEALLOCATE(ema_pcb, ema_pct)