Changeset 5817 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

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

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

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