Changeset 5817 for LMDZ6

Timestamp:

Sep 17, 2025, 12:04:37 PM (2 months ago)

Author:

rkazeroni

Message:

For GPU porting of ajsec and ajsec_convv2 routines:

Put routine into module (speeds up source-to-source transformation)
Add "horizontal" comment to specify possible names of horizontal variables

Location:

LMDZ6/trunk/libf/phylmd

Files:

• ajsec.f90 (modified) (2 diffs)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/ajsec.f90

@@ -1 +1 @@
 
 ! $Header$
+!$gpum horizontal klon
+MODULE ajsec_mod
+  PRIVATE
+
+  PUBLIC ajsec, ajsec_convv2, ajsec_old
+
+  CONTAINS
 
 SUBROUTINE ajsec(paprs, pplay, t, q, limbas, d_t, d_q)
@@ -399 +406 @@
   RETURN
 END SUBROUTINE ajsec_old
+
+END MODULE ajsec_mod

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -24 +24 @@
     USE add_phys_tend_mod, only : add_pbl_tend, add_phys_tend, diag_phys_tend, prt_enerbil, &
   &      fl_ebil, fl_cor_ebil
+    USE ajsec_mod, ONLY: ajsec, ajsec_convv2
     USE assert_m, only: assert
     USE change_srf_frac_mod
@@ -850 +851 @@
     EXTERNAL angle     ! calculer angle zenithal du soleil
     EXTERNAL alboc     ! calculer l'albedo sur ocean
-    EXTERNAL ajsec     ! ajustement sec
+    ! EXTERNAL ajsec     ! ajustement sec
     EXTERNAL conlmd    ! convection (schema LMD)
     EXTERNAL conema3  ! convect4.3