Changeset 953 for codes/icosagcm/trunk/src/diagnostics/check_conserve.f90

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/diagnostics/check_conserve.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/diagnostics/check_conserve.f90

@@ -1 +1 @@
 MODULE check_conserve_mod
   USE icosa 
+  USE abort_mod
   IMPLICIT NONE 
 
@@ -28 +29 @@
     USE getin_mod
     USE omp_para, ONLY : is_master
+    USE abort_mod
     CHARACTER(LEN=255) :: check_type_str
     CALL allocate_field(f_pk,field_t,type_real,llm)
@@ -47 +49 @@
        STOP
     END SELECT
+
+    IF (check_type /= check_basic) THEN
+       CALL abort_acc("check_conservation /= 'basic'")
+    END IF
   END SUBROUTINE init_check_conserve
 
@@ -179 +185 @@
     
     IF(check_type == check_detailed) THEN
-
+       CALL abort_acc("!check_detailed")
        CALL transfert_request(f_ue,req_e1_vect)
        CALL pression(f_ps,f_p)