Changeset 5700


Ignore:
Timestamp:
Jun 13, 2025, 9:07:30 PM (4 weeks ago)
Author:
yann meurdesoif
Message:

Convection GPU porting : remove zilch function (set to 0 flattened array) or similar... (continued)
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5699 r5700  
    753753
    754754  ! initialization:
    755   DO i = 1, ncum*nlp
    756     hp(i, 1) = h(i, 1)
    757   END DO
     755!ym very bad 
     756!ym  DO i = 1, ncum*nlp
     757!ym    hp(i, 1) = h(i, 1)
     758!ym  END DO
     759  DO k=1,nlp
     760    DO i=1,ncum
     761      hp(i, k) = h(i, k)
     762    ENDDO
     763  ENDDO
    758764
    759765  DO k = minorig + 1, nl
Note: See TracChangeset for help on using the changeset viewer.