Changeset 4390

Timestamp:

Jan 23, 2023, 11:28:52 AM (16 months ago)

Author:

idelkadi

Message:

Inversion of the order of loops in the tau22 routine.
The code crashes on the IRENE computer using the O3 compilation option.

File:

• LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/srtm_taumol22.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/srtm_taumol22.F90

@@ -84 +84 @@
 I_LAYSOLFR(KIDIA:KFDIA) = K_LAYTROP(KIDIA:KFDIA)
 
-DO I_LAY = 1, I_NLAYERS
+!AI inversion des boucles pb avec option de compil O3
+DO IPLON = KIDIA, KFDIA
+  DO I_LAY = 1, I_NLAYERS
   I_LAY_NEXT = MIN(I_NLAYERS, I_LAY+1)
-  DO IPLON = KIDIA, KFDIA
+!  DO IPLON = KIDIA, KFDIA
     IF (PRMU0(IPLON) > 0.0_JPRB) THEN
       IF (I_LAY <= K_LAYTROP(IPLON)) THEN