Changeset 5968 for LMDZ6/trunk/libf/phylmd/ocean_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/ocean_albedo.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/ocean_albedo.f90

@@ -2 +2 @@
 ! $Id$
 !
+MODULE ocean_albedo_mod
+
+CONTAINS
 
 SUBROUTINE ocean_albedo(knon,zrmu0,knindex,pwind,SFRWL,alb_dir_new,alb_dif_new)
+!$gpum horizontal knon klon
+
 !!
 !!****  *ALBEDO_RS14*  
@@ -43 +48 @@
 !            ------------
 !
-USE ocean_albedo_para
+USE ocean_albedo_para, ONLY : nnwl, xakwl, xakrefm, xakachl, xakaw3, xakbw, xaw440, xfrwl, xrwc    
 USE phys_state_var_mod, ONLY : chl_con
-USE clesphys_mod_h
+USE clesphys_mod_h, ONLY: nsw, ok_chlorophyll
 !
 !
@@ -254 +259 @@
 
 END SUBROUTINE ocean_albedo
+
+END MODULE ocean_albedo_mod