Changeset 953 for codes/icosagcm/trunk/src/physics

Timestamp:

07/15/19 12:29:31 (5 years ago)

Author:

adurocher

Message:

trunk : GPU implementation with OpenACC ( merge from glcp.idris.fr )

File:

• codes/icosagcm/trunk/src/physics/physics.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/physics/physics.f90

@@ -27 +27 @@
   SUBROUTINE init_physics
     USE mpipara
+    USE abort_mod
     USE etat0_mod
     USE physics_dcmip_mod, ONLY : init_physics_dcmip=>init_physics
@@ -118 +119 @@
     
 !$OMP END PARALLEL
+    IF (phys_type /= phys_none) THEN
+       CALL abort_acc("physics /= 'none'")
+    END IF
   END SUBROUTINE init_physics
 
   SUBROUTINE zero_du_phys()
+    USE abort_mod
     REAL(rstd), DIMENSION(:,:), POINTER :: du
     INTEGER :: ind
@@ -154 +159 @@
     USE etat0_heldsz_mod
     USE etat0_venus_mod, ONLY : phys_venus => physics
+    USE abort_mod
     INTEGER, INTENT(IN)   :: it
     TYPE(t_field),POINTER :: f_phis(:)