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

Timestamp:

Dec 17, 2025, 7:33:39 PM (4 weeks ago)

Author:

yann meurdesoif

Message:

Separate pbl_surface into 3 subroutines for GPU port

pbl_surface_uncompress_pre : prepare computation for sub subsurface before compressing
pbl_surface_subsrf : each sub-surface is called one after other (horizontal = knon)
pbl_surface_uncompress_post : sub-surface are uncompressed, computation is done on whole domain (horizontal = klon)

pbl_surface_main becomes the driver, calling pbl_surface_uncompress_pre, and then looping under sub-surface (and calling pbl_surface_subsrf) and then calling pbl_surface_uncompress_post.

merge of commit r5868

YM

File:

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

LMDZ6/trunk/libf/phylmd/albedo.f90

@@ -8 +8 @@
 CONTAINS
 
-  SUBROUTINE alboc(rjour, rlat, albedo)
-    USE dimphy
+  SUBROUTINE alboc(klon, rjour, rlat, albedo)
     USE clesphys_mod_h
     USE orbite_mod, ONLY: orbite
@@ -23 +22 @@
     ! albedo (out,R): albedo obtenu (de 0 a 1)
     ! ======================================================================
-
+    INTEGER, INTENT(IN) :: klon
     INTEGER npts ! il controle la precision de l'integration
     PARAMETER (npts=120) ! 120 correspond a l'interval 6 minutes
@@ -123 +122 @@
   END SUBROUTINE alboc
   ! =====================================================================
-  SUBROUTINE alboc_cd(rmu0, albedo)
-    USE dimphy
+  SUBROUTINE alboc_cd(klon, rmu0, albedo)
 
     ! Auteur(s): Z.X. Li (LMD/CNRS)
@@ -137 +135 @@
     ! albedo (out): albedo de surface de l'ocean
     ! ======================================================================
+    INTEGER, INTENT(IN) :: klon
     REAL, intent(in):: rmu0(klon)
     real, intent(out):: albedo(klon)