Changeset 5837 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Sep 25, 2025, 10:08:48 AM (5 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

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (3 diffs)

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