Changeset 5810 for LMDZ6


Ignore:
Timestamp:
Sep 16, 2025, 4:44:54 PM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of reevap 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

    r5805 r5810  
    6868    USE readaerosolstrato_m, ONLY : init_readaerosolstrato
    6969    USE radlwsw_m, only: radlwsw
     70    USE reevap_mod, ONLY: reevap
    7071    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    7172    USE regr_pr_time_av_m, only: regr_pr_time_av

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

    r5285 r5810  
    1   SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,q_seri,ql_seri,qs_seri, &
     1!$gpum horizontal klon
     2MODULE reevap_mod
     3  PRIVATE
     4
     5  PUBLIC reevap
     6
     7  CONTAINS
     8
     9SUBROUTINE reevap (klon,klev,iflag_ice_thermo,t_seri,q_seri,ql_seri,qs_seri, &
    210   &         d_t_eva,d_q_eva,d_ql_eva,d_qs_eva)
    311
    … …  
    7987
    8088END SUBROUTINE reevap
     89
     90END MODULE reevap_mod

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

    r5809 r5810  
    6868    USE readaerosolstrato_m, ONLY : init_readaerosolstrato
    6969    USE radlwsw_m, only: radlwsw
     70    USE reevap_mod, ONLY: reevap
    7071    USE regr_horiz_time_climoz_m, ONLY: regr_horiz_time_climoz
    7172    USE regr_pr_time_av_m, only: regr_pr_time_av
Note: See TracChangeset for help on using the changeset viewer.