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

Timestamp:

Jun 7, 2024, 3:27:21 PM (4 months ago)

Author:

idelkadi

Message:

Moving the m_allaer variable from phys_local_var_mod.F90 to phys_state_var_mod.F90

File:

• LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -474 +474 @@
       REAL,SAVE,ALLOCATABLE :: ccm(:,:,:)
 !$OMP THREADPRIVATE(ccm)
+      REAL, SAVE, ALLOCATABLE :: m_allaer (:,:,:)
+!$OMP THREADPRIVATE(m_allaer)
 
       REAL,SAVE,ALLOCATABLE :: ale_bl_trig(:)
@@ -752 +754 @@
       ALLOCATE(cg_aero_lw_rrtm(klon,klev,2,nbands_lw_rrtm))
       ALLOCATE(ccm(klon,klev,nbands))
+      ALLOCATE(m_allaer(klon,klev,naero_tot))
 
 #ifdef ISO
@@ -936 +939 @@
       DEALLOCATE(tau_aero_lw_rrtm,piz_aero_lw_rrtm,cg_aero_lw_rrtm)
       DEALLOCATE(ccm)
+      DEALLOCATE(m_allaer)
       if (ok_gwd_rando) DEALLOCATE(du_gwd_rando)
       if (.not. ok_hines .and. ok_gwd_rando) DEALLOCATE(du_gwd_front)