Changeset 5835 for LMDZ6


Ignore:
Timestamp:
Sep 24, 2025, 4:03:13 PM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of tend_to_tke routine:

  • Put routine into module (speeds up source-to-source transformation)
  • Add "horizontal" comment to specify possible names of horizontal variables
  • Fix wrong dimensionality of pctsrf in the argument declaration (leads to GPU memory allocation problems)
Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5834 r5835  
    8181    USE stratocu_if_mod, ONLY: stratocu_if
    8282    USE surface_data,     ONLY : type_ocean, ok_veget
     83    USE tend_to_tke_mod, ONLY: tend_to_tke
    8384    USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
    8485    USE tracinca_mod, ONLY: config_inca

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

    r5285 r5835  
    3232!**************************************************************************************
    3333
     34!$gpum horizontal klon
     35MODULE tend_to_tke_mod
     36  PRIVATE
     37
     38  PUBLIC tend_to_tke
     39
     40  CONTAINS
     41
    3442 SUBROUTINE tend_to_tke(dt,plev,exner,temp,windu,windv,dt_a,du_a,dv_a,pctsrf,tke)
    3543
    … …  
    5664  REAL du_a(klon,klev)      ! Zonal wind speed tendency [m/s], grid-cell average or for a one subsurface
    5765  REAL dv_a(klon,klev)      ! Meridional wind speed tendency [m/s], grid-cell average or for a one subsurface
    58   REAL pctsrf(klon,nbsrf+1)       ! Turbulent Kinetic energy [m2/s2], grid-cell average or for a subsurface
     66  REAL pctsrf(klon,nbsrf)   ! Turbulent Kinetic energy [m2/s2], grid-cell average or for a subsurface
    5967
    6068! Inputs/Outputs
    … …  
    149157
    150158 END SUBROUTINE tend_to_tke
     159
     160END MODULE tend_to_tke_mod

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5834 r5835  
    7979    USE stratocu_if_mod, ONLY: stratocu_if
    8080    USE surface_data,     ONLY : type_ocean, ok_veget
     81    USE tend_to_tke_mod, ONLY: tend_to_tke
    8182    USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
    8283    USE tracinca_mod, ONLY: config_inca
Note: See TracChangeset for help on using the changeset viewer.