Changeset 4132 for LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Apr 20, 2022, 6:35:42 PM (2 years ago)

Author:

Laurent Fairhead

Message:

Modifications to code to start using openacc directives
LF

File:

• LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Portage_acc/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -48 +48 @@
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
-  IMPLICIT NONE
+#ifdef _OPENACC
+    USE openacc
+#endif
+    IMPLICIT NONE
 
   ! =======================================================================
@@ -97 +100 @@
 #endif
 
+#ifdef _OPENACC
+    INTEGER :: numdev
+
+    !$acc init
+
+    ! get the number of NVIDIA devices on this node
+    numdev = acc_get_num_devices(ACC_DEVICE_NVIDIA)
+    PRINT *, 'init_physics : number of available GPU devices', numdev
+    IF (numdev < 1) STOP "Error: there are no devices available on this host. ABORTING"
+    CALL acc_init(ACC_DEVICE_NVIDIA)
+    numdev = acc_get_device_num(ACC_DEVICE_NVIDIA)
+    PRINT *, 'init_physics : GPU device id = ', numdev
+#endif
+
+
+
+
+
   ! --> initialize physics distribution, global fields and geometry
   ! (i.e. things in phy_common or dynphy_lonlat)