Index: /LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/srtm_taumol22.F90
===================================================================
--- /LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/srtm_taumol22.F90	(revision 4389)
+++ /LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/srtm_taumol22.F90	(revision 4390)
@@ -84,7 +84,9 @@
 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