Changeset 5812 for LMDZ6


Ignore:
Timestamp:
Sep 16, 2025, 5:35:37 PM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of evappot 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/evappot.f90

    r5390 r5812  
     1!$gpum horizontal klon
     2MODULE evappot_mod
     3  PRIVATE
     4
     5  PUBLIC evappot
     6
     7  CONTAINS
     8
    19SUBROUTINE evappot(klon,nbsrf,ftsol,pplay,cdragh,  &
    210       &    t_seri,q_seri,u_seri,v_seri,evap_pot)
    … …  
    4250
    4351END SUBROUTINE evappot
     52
     53END MODULE evappot_mod

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

    r5810 r5812  
    3232    USE dimphy
    3333    USE etat0_limit_unstruct_mod
     34    USE evappot_mod, ONLY: evappot
    3435    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando, FLOTT_GWD_rando_first
    3536    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars

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

    r5811 r5812  
    3232    USE dimphy
    3333    USE etat0_limit_unstruct_mod
     34    USE evappot_mod, ONLY: evappot
    3435    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando
    3536    USE fonte_neige_mod, ONLY  : fonte_neige_get_vars
Note: See TracChangeset for help on using the changeset viewer.