Changeset 5968 for LMDZ6/trunk/libf/phylmd/albedo.f90

Timestamp:

Dec 19, 2025, 11:46:41 AM (3 weeks ago)

Author:

yann meurdesoif

Message:

GPU port of surf_ocean
Merge of commit r5896
YM

File:

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

LMDZ6/trunk/libf/phylmd/albedo.f90

@@ -2 +2 @@
 MODULE albedo
 
-  USE clesphys_mod_h
-  USE yomcst_mod_h
-  IMPLICIT NONE
+IMPLICIT NONE
 
-CONTAINS
+contains
 
   SUBROUTINE alboc(klon, rjour, rlat, albedo)
-    USE clesphys_mod_h
-    USE orbite_mod, ONLY: orbite
+!$gpum horizontal klon
+!    USE clesphys_mod_h
+    USE yomcst_mod_h, ONLY : r_incl
+    USE orbite_mod, ONLY : orbite
+    IMPLICIT NONE
     ! ======================================================================
     ! Auteur(s): Z.X. Li (LMD/CNRS) (adaptation du GCM du LMD)
@@ -123 +124 @@
   ! =====================================================================
   SUBROUTINE alboc_cd(klon, rmu0, albedo)
+!$gpum horizontal klon
+  IMPLICIT NONE
 
     ! Auteur(s): Z.X. Li (LMD/CNRS)
@@ -159 +162 @@
   END SUBROUTINE alboc_cd
 
-END MODULE albedo
+end module albedo