Ignore:
Timestamp:
Jun 13, 2025, 9:27:02 PM (7 weeks 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/cv3p2_closure.f90

    r5695 r5702  
    367367          supmax0(il) = ((p(il,i)-pzero(il))*asupmax(il,i-1)- &
    368368            (p(il,i-1)-pzero(il))*asupmax(il,i))/(p(il,i)-p(il,i-1))
    369           GO TO 425
     369!ym WARNING : probably bad GOTO branching ===> to check !
     370!ym          GO TO 425
    370371        END IF ! end IF (P(i) ... )
    371372      END IF ! end IF (icb+1 le i le inb)
    … …  
    373374  END DO
    374375
    375 425 CONTINUE
     376!ym bad branching
     377!ym 425 CONTINUE
    376378  IF (prt_level>=20) PRINT *, 'cv3p2_closure apres 425.'
    377379
Note: See TracChangeset for help on using the changeset viewer.