Ignore:
Timestamp:
Jan 23, 2023, 11:28:52 AM (23 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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3908 r4390  
    8484I_LAYSOLFR(KIDIA:KFDIA) = K_LAYTROP(KIDIA:KFDIA)
    8585
    86 DO I_LAY = 1, I_NLAYERS
     86!AI inversion des boucles pb avec option de compil O3
     87DO IPLON = KIDIA, KFDIA
     88  DO I_LAY = 1, I_NLAYERS
    8789  I_LAY_NEXT = MIN(I_NLAYERS, I_LAY+1)
    88   DO IPLON = KIDIA, KFDIA
     90!  DO IPLON = KIDIA, KFDIA
    8991    IF (PRMU0(IPLON) > 0.0_JPRB) THEN
    9092      IF (I_LAY <= K_LAYTROP(IPLON)) THEN
Note: See TracChangeset for help on using the changeset viewer.