Juan 26/08/2021:mode_mnh_world.f90, add get_default_device to bypass pb in atomic/nvhpc21.X

src/LIB/SURCOUCHE/src/mode_mnh_world.f90

@@ -34,6 +34,7 @@ CONTAINS
     !JUANZ
 #ifdef MNH_OPENACC
     USE OPENACC
+    USE MODE_OPENACC_SET_DEVICE
 #endif
     !USE IEEE_ARITHMETIC
 
@@ -93,6 +94,10 @@ CONTAINS
           read(CID_GPU,'(I5)') ID_GPU    
           print*,"CID_GPU=",CID_GPU," ID_GPU=",ID_GPU
           CALL acc_set_device_num(ID_GPU,acc_device_nvidia)
+          !
+          ! get current device type for bug in atomic / nvhpc21.X
+          CALL MNH_OPENACC_GET_DEVICE_AT_INIT()
+          !
        END IF
 !!$  ! acc init
 #endif