Changeset 5816 for LMDZ6


Ignore:
Timestamp:
Sep 17, 2025, 11:24:26 AM (2 months ago)
Author:
rkazeroni
Message:

For GPU porting of clouds_gno and clouds_bigauss routines:

  • Put routine into module (speeds up source-to-source transformation)
  • Add "horizontal" comment to specify possible names of horizontal variables
  • Remove unnecessary declaration of intrinsic function erf
Location:
LMDZ6/trunk/libf
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r5268 r5816  
    44
    55! ================================================================================
     6!$gpum horizontal klon
     7MODULE clouds_bigauss_mod
     8
     9  PRIVATE
     10
     11  PUBLIC clouds_bigauss
     12
     13  CONTAINS
    614
    715SUBROUTINE clouds_bigauss(klon, nd, r, rs, qtc, sigt, ptconv, ratqsc, cldf)
    … …  
    5361  REAL cconv, cenv
    5462  REAL pi, u, v
    55   REAL erf
    5663  REAL sqrtpi, sqrt2
    5764  ! lconv = true si le calcul a converge (entre autre si qsub < min_q)
    … …  
    116123  END SUBROUTINE clouds_bigauss
    117124
    118 
    119 
     125END MODULE clouds_bigauss_mod

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

    r5268 r5816  
    22! $Header$
    33
    4 
    54! ================================================================================
     5!$gpum horizontal klon
     6MODULE clouds_gno_mod
     7
     8  PRIVATE
     9
     10  PUBLIC clouds_gno
     11
     12  CONTAINS
    613
    714SUBROUTINE clouds_gno(klon, nd, r, rs, qsub, ptconv, ratqsc, cldf)
    … …  
    5461  REAL pi, u, v, erfcu, erfcv
    5562  REAL xx1, xx2
    56   REAL erf, hsqrtlog_2, v2
     63  REAL hsqrtlog_2, v2
    5764  REAL sqrtpi, sqrt2, zx1, zx2, exdel
    5865  ! lconv = true si le calcul a converge (entre autre si qsub < min_q)
    … …  
    258265END SUBROUTINE clouds_gno
    259266
    260 
    261 
     267END MODULE clouds_gno_mod

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

    r5268 r5816  
    1616
    1717
     18USE clouds_gno_mod,     ONLY: clouds_gno
    1819USE lmdz_ratqs_multi,   ONLY: ratqs_inter, ratqs_oro, ratqs_hetero, ratqs_tke
    1920

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

    r5813 r5816  
    2929    USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
    3030    USE CFMIP_point_locations   ! IM stations CFMIP
     31    USE clouds_bigauss_mod, ONLY: clouds_bigauss
     32    USE clouds_gno_mod, ONLY: clouds_gno
    3133    USE cmp_seri_mod
    3234    USE dimphy

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

    r5813 r5816  
    2929    USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
    3030    USE CFMIP_point_locations   ! IM stations CFMIP
     31    USE clouds_bigauss_mod, ONLY: clouds_bigauss
     32    USE clouds_gno_mod, ONLY: clouds_gno
    3133    USE cmp_seri_mod
    3234    USE dimphy
Note: See TracChangeset for help on using the changeset viewer.