Ignore:
Timestamp:
Sep 25, 2025, 10:51:30 AM (3 months ago)
Author:
rkazeroni
Message:

For GPU porting of water_int routine:

  • Add "horizontal" comment to specify possible names of horizontal variables
  • Explicit horizontal loop (needed for GPU parallelization)


File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5390 r5839  
     1!$gpum horizontal klon
     2MODULE water_int_mod
     3  PRIVATE
     4
     5  PUBLIC water_int
     6
     7  CONTAINS
     8
    19subroutine water_int(klon,klev,field3d,mass,field2d)
    210
    … …  
    1321REAL, DIMENSION(klon),     INTENT(OUT) :: field2d
    1422
    15 INTEGER k
     23INTEGER i, k
    1624
    1725field2d(:)=0.0
    1826DO k=1, klev
    19 field2d(:)=field2d(:)+field3d(:,k)*mass(:,k)
     27  DO i=1, klon
     28    field2d(i)=field2d(i)+field3d(i,k)*mass(i,k)
     29  ENDDO
    2030ENDDO
    2131
    2232RETURN
    2333END SUBROUTINE water_int
     34
     35END MODULE water_int_mod
Note: See TracChangeset for help on using the changeset viewer.