Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (10 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_local_var_mod.F90 (modified) (6 diffs)

LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90

@@ -45 +45 @@
       REAL, SAVE, ALLOCATABLE :: d_cf_dyn(:,:), d_qvc_dyn(:,:)
       !$OMP THREADPRIVATE(d_cf_dyn, d_qvc_dyn)
+      REAL, SAVE, ALLOCATABLE :: d_tke_dyn(:,:)
+      !$OMP THREADPRIVATE(d_tke_dyn)
       REAL, SAVE, ALLOCATABLE :: d_tr_dyn(:,:,:)
       !$OMP THREADPRIVATE(d_tr_dyn)
@@ -176 +178 @@
       !$OMP THREADPRIVATE( d_xt_decroiss)
 #endif
+! GG
+! diagnostique de la glace de mer
+      REAL, SAVE, ALLOCATABLE :: fcds(:)
+      !$OMP THREADPRIVATE(fcds)
+      REAL, SAVE, ALLOCATABLE :: fcdi(:)
+      !$OMP THREADPRIVATE(fcdi)
+      REAL, SAVE, ALLOCATABLE :: dh_basal_growth(:)
+      !$OMP THREADPRIVATE(dh_basal_growth)
+      REAL, SAVE, ALLOCATABLE :: dh_basal_melt(:)
+      !$OMP THREADPRIVATE(dh_basal_melt)
+      REAL, SAVE, ALLOCATABLE :: dh_top_melt(:)
+      !$OMP THREADPRIVATE(dh_top_melt)
+      REAL, SAVE, ALLOCATABLE :: dh_snow2sic(:)
+      !$OMP THREADPRIVATE(dh_snow2sic)
+      REAL, SAVE, ALLOCATABLE :: dtice_melt(:)
+      !$OMP THREADPRIVATE(dtice_melt)
+      REAL, SAVE, ALLOCATABLE :: dtice_snow2sic(:)
+      !$OMP THREADPRIVATE(dtice_snow2sic)
+! GG
 
 ! tendance du a la conersion Ec -> E thermique
@@ -907 +928 @@
       ALLOCATE(d_u_dyn(klon,klev),d_v_dyn(klon,klev))
       ALLOCATE(d_cf_dyn(klon,klev),d_qvc_dyn(klon,klev))
+      ALLOCATE(d_tke_dyn(klon,klev+1))
       ALLOCATE(d_tr_dyn(klon,klev,nbtr))                   !RomP
       ALLOCATE(d_t_con(klon,klev),d_q_con(klon,klev))
@@ -1041 +1063 @@
       ALLOCATE(load_tmp9(klon))
       ALLOCATE(load_tmp10(klon))
+!GG
+      ALLOCATE(fcds(klon))
+      ALLOCATE(fcdi(klon))
+      ALLOCATE(dh_basal_growth(klon))
+      ALLOCATE(dh_basal_melt(klon))
+      ALLOCATE(dh_top_melt(klon))
+      ALLOCATE(dh_snow2sic(klon))
+      ALLOCATE(dtice_melt(klon))
+      ALLOCATE(dtice_snow2sic(klon))
+!GG
 
 !IM ajout variables CFMIP2/CMIP5
@@ -1402 +1434 @@
       DEALLOCATE(d_u_dyn,d_v_dyn)
       DEALLOCATE(d_cf_dyn,d_qvc_dyn)
+      DEALLOCATE(d_tke_dyn)
       DEALLOCATE(d_tr_dyn)                      !RomP
       DEALLOCATE(d_t_con,d_q_con)
@@ -1515 +1548 @@
       DEALLOCATE(dv_gwd_rando,dv_gwd_front)
       DEALLOCATE(east_gwstress,west_gwstress)
+!GG
+      DEALLOCATE(fcds)
+      DEALLOCATE(fcdi)
+      DEALLOCATE(dh_basal_growth)
+      DEALLOCATE(dh_basal_melt)
+      DEALLOCATE(dh_top_melt)
+      DEALLOCATE(dh_snow2sic)
+      DEALLOCATE(dtice_melt)
+      DEALLOCATE(dtice_snow2sic)
+!GG
 
 !IM ajout variables CFMIP2/CMIP5