Changeset 3465 for LMDZ6/trunk/libf/phylmd/rrtm

Timestamp:

Mar 14, 2019, 10:34:31 AM (5 years ago)

Author:

Laurent Fairhead

Message:

Further modifications for DYNAMICO/LMDZ convergence. These are based
on Yann's LMDZ6_V2 sources. Compiles on irene and converges with revision 3459
in a bucket configuration
YM/LF

File:

• LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

@@ -318 +318 @@
         CALL scatter(cgaerstrat_mois_glo,cg_aer_strat)
         CALL scatter(taulwaerstrat_mois_glo,taulw_aer_strat)
+        IF (is_mpi_root.AND.is_omp_root)  DEALLOCATE(tauaerstrat_mois, pizaerstrat_mois, cgaerstrat_mois, taulwaerstrat_mois)
 
       ENDIF 
 
       IF (is_mpi_root.AND.is_omp_root) THEN
-        DEALLOCATE(tauaerstrat_mois, pizaerstrat_mois, cgaerstrat_mois)
-        DEALLOCATE(taulwaerstrat_mois)
         DEALLOCATE(tauaerstrat, pizaerstrat, cgaerstrat,taulwaerstrat)
       ENDIF