Changeset 5816 for LMDZ6/trunk/libf/phylmd/clouds_gno.f90

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

File:

• LMDZ6/trunk/libf/phylmd/clouds_gno.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/clouds_gno.f90

@@ -2 +2 @@
 ! $Header$
 
-
 ! ================================================================================
+!$gpum horizontal klon
+MODULE clouds_gno_mod
+
+  PRIVATE
+
+  PUBLIC clouds_gno
+
+  CONTAINS
 
 SUBROUTINE clouds_gno(klon, nd, r, rs, qsub, ptconv, ratqsc, cldf)
@@ -54 +61 @@
   REAL pi, u, v, erfcu, erfcv
   REAL xx1, xx2
-  REAL erf, hsqrtlog_2, v2
+  REAL hsqrtlog_2, v2
   REAL sqrtpi, sqrt2, zx1, zx2, exdel
   ! lconv = true si le calcul a converge (entre autre si qsub < min_q)
@@ -258 +265 @@
 END SUBROUTINE clouds_gno
 
-
-
+END MODULE clouds_gno_mod