Changeset 6015 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

Timestamp:

Jan 12, 2026, 3:22:42 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

Adapt some of surf_land_orchidee interface to newly GPU porting.

Change klon into knon in some variables declaration

YM

File:

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

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

@@ -187 +187 @@
 
 ! Pb de nomenclature
-    REAL, DIMENSION(klon)                     :: petA_orc, peqA_orc
-    REAL, DIMENSION(klon)                     :: petB_orc, peqB_orc
+    REAL, DIMENSION(knon)                     :: petA_orc, peqA_orc
+    REAL, DIMENSION(knon)                     :: petB_orc, peqB_orc
 ! Pb de correspondances de grilles
     INTEGER, DIMENSION(:), SAVE, ALLOCATABLE  :: ig, jg
@@ -197 +197 @@
 
 ! Essai cdrag
-    REAL, DIMENSION(klon)                     :: cdrag
+    REAL, DIMENSION(knon)                     :: cdrag
     INTEGER,SAVE                              :: offset
     !$OMP THREADPRIVATE(offset)
@@ -347 +347 @@
        ENDDO
      
-       ALLOCATE(coastalflow(klon), stat = error)
+       ALLOCATE(coastalflow(knon), stat = error)
        IF (error /= 0) THEN
           abort_message='Pb allocation coastalflow'
@@ -353 +353 @@
        ENDIF
        
-       ALLOCATE(riverflow(klon), stat = error)
+       ALLOCATE(riverflow(knon), stat = error)
        IF (error /= 0) THEN
           abort_message='Pb allocation riverflow'