Ignore:
Timestamp:
Sep 25, 2025, 5:09:22 PM (3 months ago)
Author:
rkazeroni
Message:

For GPU porting of diag_slp routine:

  • Put routine into module (speeds up source-to-source transformation)
  • Add "horizontal" comment to specify possible names of horizontal variables
File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5285 r5842  
     1!$gpum horizontal kproma kprof
     2MODULE pppmer_mod
     3  PRIVATE
     4
     5  PUBLIC pppmer
     6
     7  CONTAINS
     8
    19SUBROUTINE PPPMER(KPROMA,KSTART,KPROF,PRPRESS,POROG,PTSTAR,PT0,PMSLPPP)
    210
    … …  
    161169!IM IF (LHOOK) CALL DR_HOOK('PPPMER',1,ZHOOK_HANDLE)
    162170 END SUBROUTINE PPPMER
     171
     172END MODULE pppmer_mod
Note: See TracChangeset for help on using the changeset viewer.