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

Timestamp:

Jun 7, 2024, 6:24:38 PM (3 weeks ago)

Author:

idelkadi

Message:

Error correction introduced in previous version

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(:)
@@ -754 +752 @@
       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
@@ -939 +936 @@
       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)