Changeset 5702 for LMDZ6/trunk/libf


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

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 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

  • 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.