Changeset 6004

Timestamp:

Jan 7, 2026, 11:09:13 AM (6 days ago)

Author:

yann meurdesoif

Message:

GPU port : Adapt obsolete orchidee interface to be compliant with modifications due to GPU porting
YM

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

@@ -119 +119 @@
     REAL, INTENT(IN)                          :: date0
     INTEGER, INTENT(IN)                       :: knon
-    INTEGER, DIMENSION(klon), INTENT(IN)      :: knindex
+    INTEGER, DIMENSION(knon), INTENT(IN)      :: knindex
     LOGICAL, INTENT(IN)                       :: debut, lafin
     REAL, DIMENSION(klon,nbsrf), INTENT(IN)   :: pctsrf
     REAL, DIMENSION(klon), INTENT(IN)         :: rlon, rlat
-    REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0 ! cosine of solar zenith angle
-    REAL, DIMENSION(klon), INTENT(IN)         :: plev
-    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
-    REAL, DIMENSION(klon), INTENT(IN)         :: temp_air, spechum
-    REAL, DIMENSION(klon), INTENT(IN)         :: epot_air, ccanopy
-    REAL, DIMENSION(klon), INTENT(IN)         :: tq_cdrag
-    REAL, DIMENSION(klon), INTENT(IN)         :: petAcoef, peqAcoef
-    REAL, DIMENSION(klon), INTENT(IN)         :: petBcoef, peqBcoef
-    REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
-    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
-    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
+    REAL, DIMENSION(knon), INTENT(IN)         :: yrmu0 ! cosine of solar zenith angle
+    REAL, DIMENSION(knon), INTENT(IN)         :: plev
+    REAL, DIMENSION(knon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
+    REAL, DIMENSION(knon), INTENT(IN)         :: temp_air, spechum
+    REAL, DIMENSION(knon), INTENT(IN)         :: epot_air, ccanopy
+    REAL, DIMENSION(knon), INTENT(IN)         :: tq_cdrag
+    REAL, DIMENSION(knon), INTENT(IN)         :: petAcoef, peqAcoef
+    REAL, DIMENSION(knon), INTENT(IN)         :: petBcoef, peqBcoef
+    REAL, DIMENSION(knon), INTENT(IN)         :: precip_rain, precip_snow
+    REAL, DIMENSION(knon), INTENT(IN)         :: lwdown, swnet, swdown, ps
+    REAL, DIMENSION(knon), INTENT(IN)         :: q2m, t2m
 
 ! Parametres de sortie
 !****************************************************************************************
-    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
-    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
-    REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
-    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0m_new, z0h_new
-    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: veget
-    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: lai
-    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: height
+    REAL, DIMENSION(knon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
+    REAL, DIMENSION(knon), INTENT(OUT)        :: tsol_rad, tsurf_new
+    REAL, DIMENSION(knon), INTENT(OUT)        :: alb1_new, alb2_new
+    REAL, DIMENSION(knon), INTENT(OUT)        :: emis_new, z0m_new, z0h_new
+    REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: veget
+    REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: lai
+    REAL, DIMENSION(knon,nvm_lmdz), INTENT(OUT) :: height
 
 
@@ -150 +150 @@
     INTEGER                                   :: ij, jj, igrid, ireal, index
     INTEGER                                   :: error
-    REAL, DIMENSION(klon)                     :: swdown_vrai
+    REAL, DIMENSION(knon)                     :: swdown_vrai
     CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
     CHARACTER (len = 80)                      :: abort_message
@@ -486 +486 @@
   
     INTEGER,INTENT(IN)    :: knon
-    INTEGER,INTENT(IN)    :: knindex(klon)    
+    INTEGER,INTENT(IN)    :: knindex(knon)    
     INTEGER,INTENT(OUT)   :: offset
-    INTEGER,INTENT(OUT)   :: ktindex(klon)
+    INTEGER,INTENT(OUT)   :: ktindex(knon)
     
     INTEGER               :: ktindex_glo(knon_glo)
@@ -575 +575 @@
 !****************************************************************************************
     INTEGER, INTENT(IN)                     :: knon
-    INTEGER, DIMENSION(klon), INTENT(IN)    :: knindex
+    INTEGER, DIMENSION(knon), INTENT(IN)    :: knindex
     REAL, DIMENSION(klon), INTENT(IN)       :: pctsrf
     
@@ -592 +592 @@
     INTEGER, DIMENSION(knon_glo,8)       :: neighbours_glo
     REAL, DIMENSION(klon_glo)            :: pctsrf_glo
-    INTEGER                              :: ktindex(klon)
+    INTEGER                              :: ktindex(knon)
 !
 ! End definition