Changeset 5767 for LMDZ6

Timestamp:

Jul 10, 2025, 12:04:51 PM (3 weeks ago)

Author:

rkazeroni

Message:

For GPU porting of gravity waves params:

• Add "horizontal" comment to specify possible names of horizontal variables
• Remove "fake_call" utility which is no longer needed by GPU-Morphosis (bug fixed in the tool)

Location:

LMDZ6/trunk/libf/phylmd

Files:

• acama_gwd_rando_m.f90 (modified) (3 diffs)
• flott_gwd_rando_m.f90 (modified) (3 diffs)
• lmdz_fake_call.f90 (deleted)

LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.f90

@@ -2 +2 @@
 ! $Id$
 !
+!$gpum horizontal klon
 module ACAMA_GWD_rando_m
 
@@ -55 +56 @@
     use assert_m, only: assert
     USE vertical_layers_mod, ONLY : presnivs
-    USE lmdz_fake_call, ONLY : fake_call
 
 !  OFFLINE:
@@ -219 +219 @@
 !  END ONLINE
 
-    CALL FAKE_CALL(BVLOW) ! to be suppress in future
-    CALL FAKE_CALL(CORIO) ! to be suppress in future
-    CALL FAKE_CALL(ROTBA) ! to be suppress in future
-    
     IF(DELTAT < DTIME)THEN
 !       PRINT *, 'flott_gwd_rando: deltat < dtime!'

LMDZ6/trunk/libf/phylmd/flott_gwd_rando_m.f90

@@ -2 +2 @@
 ! $Id$
 !
+!$gpum horizontal klon
 module FLOTT_GWD_rando_m
 
@@ -52 +53 @@
       USE vertical_layers_mod, ONLY : presnivs
       USE yoegwd_mod_h
-      USE lmdz_fake_call, ONLY : fake_call
 
       CHARACTER (LEN=20),PARAMETER :: modname='flott_gwd_rando'
@@ -216 +216 @@
        CALL abort_physic(modname,abort_message,1)
     ENDIF
-    
-    CALL FAKE_CALL(BVLOW)  ! to be suppress in future
     
     ! 2. EVALUATION OF THE BACKGROUND FLOW AT SEMI-LEVELS