Ignore:
Timestamp:
Jun 13, 2025, 9:27:02 PM (2 months ago)
Author:
yann meurdesoif
Message:

Convection GPU porting : bad GOTO branching (may change result)
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90

    r5695 r5702  
    326326          supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)-(p(il, &
    327327            i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
    328           GO TO 425
     328!ym WARNING : probably bad GOTO branching ===> to check !
     329!ym          GO TO 425
    329330        END IF ! end IF (P(i) ... )
    330331      END IF ! end IF (icb+1 le i le inb)
    331332    END DO
    332333  END DO
    333 
    334 425 CONTINUE
     334!ym bad branching
     335!ym 425 CONTINUE
    335336  IF (prt_level>=20) PRINT *, 'cv3p1_param apres 425.'
    336337
Note: See TracChangeset for help on using the changeset viewer.