Changeset 5921 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Dec 9, 2025, 1:53:23 PM (4 days ago)

Author:

yann meurdesoif

Message:

Albedo :
transform routines stand alone into module
set use only module variables

YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/surf_ocean_mod.F90 (modified) (2 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/surf_ocean_mod.F90

@@ -32 +32 @@
 !$gpum horizontal knon klon
 
-    use albedo, only: alboc, alboc_cd
+    use albedo_mod, only: alboc, alboc_cd
     use bulk_flux_m, only: bulk_flux
     USE dimphy, ONLY: klon, zmasq
@@ -48 +48 @@
 #endif
 #endif
-    USE clesphys_mod_h
-    USE yomcst_mod_h
-USE limit_read_mod
+    USE clesphys_mod_h, ONLY: nsw, ok_bs, f_z0qh_oce, iflag_albedo, iflag_cycle_diurne, fmagic, pmagic, iflag_z0_oce, z0min 
+    USE yomcst_mod_h, ONLY: rd, retv, rg, rlvtt
+    USE limit_read_mod, ONLY: limit_read_rug_alb
     USE config_ocean_skin_m, ONLY: activate_ocean_skin
-    USE lmdz_checksum
+    USE lmdz_checksum, ONLY : checksum
     !
     ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force,