Changeset 5934 for LMDZ6/branches/PBLSURF_GPUPORT/libf

Timestamp:

Dec 16, 2025, 7:36:28 PM (11 days ago)

Author:

yann meurdesoif

Message:

forgotten dummy argument that was in klon instead knon.
YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/surf_ocean_mod.F90 (modified) (1 diff)

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

@@ -73 +73 @@
     REAL, DIMENSION(knon), INTENT(IN)        :: alb1   ! albedo in visible SW interval
     REAL, DIMENSION(knon), INTENT(IN)        :: windsp ! wind at 10 m, in m s-1
-    REAL, DIMENSION(klon), INTENT(IN)        :: rmu0  
+    REAL, DIMENSION(knon), INTENT(IN)        :: rmu0  
     REAL, DIMENSION(knon), INTENT(IN)        :: fder
     REAL, DIMENSION(knon), INTENT(IN)        :: tsurf_in     ! defined only for subscripts 1:knon