Changeset 5834


Ignore:
Timestamp:
Sep 24, 2025, 3:44:43 PM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of stratocu_if routine:

  • Put routine into module (speeds up source-to-source transformation)
  • Add "horizontal" comment to specify possible names of horizontal variables
Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r5833 r5834  
    7979    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    8080    USE regr_pr_time_av_m, only: regr_pr_time_av
     81    USE stratocu_if_mod, ONLY: stratocu_if
    8182    USE surface_data,     ONLY : type_ocean, ok_veget
    8283    USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time

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

    r5285 r5834  
     1!$gpum horizontal klon
     2MODULE stratocu_if_mod
     3  PRIVATE
     4
     5  PUBLIC stratocu_if
     6
     7  CONTAINS
     8
    19  SUBROUTINE stratocu_if(klon,klev,pctsrf,paprs, pplay,t &
    210,seuil_inversion,weak_inversion,dthmin)
    … …  
    8088
    8189  END SUBROUTINE stratocu_if
     90
     91END MODULE stratocu_if_mod

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

    r5833 r5834  
    7777    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    7878    USE regr_pr_time_av_m, only: regr_pr_time_av
     79    USE stratocu_if_mod, ONLY: stratocu_if
    7980    USE surface_data,     ONLY : type_ocean, ok_veget
    8081    USE time_phylmdz_mod, only: current_time, itau_phy, pdtphys, raz_date, update_time
Note: See TracChangeset for help on using the changeset viewer.