Changeset 5819 for LMDZ6


Ignore:
Timestamp:
Sep 17, 2025, 2:08:22 PM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of ener_conserv routine:

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

Legend:

Unmodified
Added
Removed

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

    r5390 r5819  
     1!$gpum horizontal klon
     2MODULE ener_conserv_mod
     3
     4  PRIVATE
     5
     6  PUBLIC ener_conserv
     7
     8  CONTAINS
     9
    110subroutine ener_conserv(klon,klev,pdtphys, &
    211 &                      puo,pvo,pto,qx,ivap,iliq,isol, &
    … …  
    5766REAL ZRCPD
    5867
    59 character*80 abort_message
    60 character*20 :: modname
    61 
    62 
    63 modname='ener_conser'
     68CHARACTER (LEN=80) :: abort_message
     69CHARACTER (LEN=20), PARAMETER :: modname = 'ener_conser'
     70
    6471d_t_ec(:,:)=0.
    6572
    … …  
    268275
    269276END SUBROUTINE ener_conserv
     277
     278END MODULE ener_conserv_mod

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

    r5818 r5819  
    3535    USE dimphy
    3636    USE etat0_limit_unstruct_mod
     37    USE ener_conserv_mod, ONLY: ener_conserv
    3738    USE evappot_mod, ONLY: evappot
    3839    USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando, FLOTT_GWD_rando_first

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

    r5818 r5819  
    3333    USE cmp_seri_mod
    3434    USE dimphy
     35    USE ener_conserv_mod, ONLY: ener_conserv
    3536    USE etat0_limit_unstruct_mod
    3637    USE evappot_mod, ONLY: evappot
Note: See TracChangeset for help on using the changeset viewer.