Changeset 5837 for LMDZ6

Timestamp:

Sep 25, 2025, 10:08:48 AM (3 months ago)

Author:

rkazeroni

Message:

For GPU porting of angle and zenang 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

Files:

• phylmd/albedo.f90 (modified) (1 diff)
• phylmd/o3_chem_m.f90 (modified) (1 diff)
• phylmd/orbite.f90 (modified) (2 diffs)
• phylmd/physiq_mod.F90 (modified) (3 diffs)
• phylmdiso/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/albedo.f90

@@ -11 +11 @@
     USE dimphy
     USE clesphys_mod_h
+    USE orbite_mod, ONLY: orbite
     ! ======================================================================
     ! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM du LMD)

LMDZ6/trunk/libf/phylmd/o3_chem_m.f90

@@ -22 +22 @@
     use mod_grid_phy_lmdz, only: nbp_lev
     use nrtype, only: pi
+    USE orbite_mod, ONLY: orbite, zenang
 
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360

LMDZ6/trunk/libf/phylmd/orbite.f90

@@ -1 +1 @@
 
 ! $Header$
+!$gpum horizontal klon
+MODULE orbite_mod
+  PRIVATE
+
+  PUBLIC orbite, angle, zenang, zenith
+
+  CONTAINS
 
 ! ======================================================================
@@ -297 +304 @@
   RETURN
 END SUBROUTINE zenith
+
+END MODULE orbite_mod

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -58 +58 @@
     USE nuage_mod, ONLY: nuage, diagcld1, diagcld2
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
+    USE orbite_mod, ONLY: angle, orbite, zenang
     USE orografi_mod, ONLY: drag_noro, lift_noro, sugwd
     USE orografi_strato_mod, ONLY: drag_noro_strato, lift_noro_strato, sugwd_strato
@@ -857 +858 @@
     ! Declaration des procedures appelees
     !
-    EXTERNAL angle     ! calculer angle zenithal du soleil
+    ! EXTERNAL angle     ! calculer angle zenithal du soleil
     EXTERNAL alboc     ! calculer l'albedo sur ocean
     ! EXTERNAL ajsec     ! ajustement sec
@@ -865 +866 @@
     ! EXTERNAL nuage     ! calculer les proprietes radiatives
     !C      EXTERNAL o3cm      ! initialiser l'ozone
-    EXTERNAL orbite    ! calculer l'orbite terrestre
+    ! EXTERNAL orbite    ! calculer l'orbite terrestre
     EXTERNAL phyredem  ! ecrire l'etat de redemarrage de la physique
     EXTERNAL suphel    ! initialiser certaines constantes

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -56 +56 @@
     USE nuage_mod, ONLY: nuage, diagcld1, diagcld2
     USE open_climoz_m, only: open_climoz ! ozone climatology from a file
+    USE orbite_mod, ONLY: angle, orbite, zenang
     USE orografi_mod, ONLY: drag_noro, lift_noro, sugwd
     USE orografi_strato_mod, ONLY: drag_noro_strato, lift_noro_strato, sugwd_strato
@@ -929 +930 @@
     ! Declaration des procedures appelees
     !
-    EXTERNAL angle     ! calculer angle zenithal du soleil
+    ! EXTERNAL angle     ! calculer angle zenithal du soleil
     EXTERNAL alboc     ! calculer l'albedo sur ocean
     EXTERNAL ajsec     ! ajustement sec
@@ -937 +938 @@
     ! EXTERNAL nuage     ! calculer les proprietes radiatives
     !C      EXTERNAL o3cm      ! initialiser l'ozone
-    EXTERNAL orbite    ! calculer l'orbite terrestre
+    ! EXTERNAL orbite    ! calculer l'orbite terrestre
     EXTERNAL phyredem  ! ecrire l'etat de redemarrage de la physique
     EXTERNAL suphel    ! initialiser certaines constantes