Changeset 901 for codes/icosagcm/trunk/src/vertical

Timestamp:

06/13/19 16:45:42 (5 years ago)

Author:

adurocher

Message:

trunk : Fixed compilation with --std=f2008 with gfortran

Added dynamico_abort() to replace non standard ABORT() intrinsic
Other modifications to respect the fortran standard

File:

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

codes/icosagcm/trunk/src/vertical/disvert_apbp.f90

@@ -25 +25 @@
   SUBROUTINE disvert(ap,bp,presnivs)
 !  USE icosa
+  USE abort_mod
   USE mpipara, ONLY: is_mpi_root
   USE omp_para, ONLY: omp_in_parallel
@@ -46 +47 @@
     IF (ok/=0) THEN
       WRITE(*,*) "disvert_ap_bp error: input file ",trim(filename)," not found!"
-      CALL ABORT
+      CALL dynamico_abort( "disvert_ap_bp : could not open input file" )
     ENDIF
     ! read in ap() and b() line by line, starting from surface up
@@ -54 +55 @@
       IF (ok/=0) THEN
         WRITE(*,*) "disvert_ap_bp error: failed reading ap(l) and bp(l) for l=",l
-        CALL ABORT
+        CALL dynamico_abort( "disvert_ap_bp : could not read input file" )
       ENDIF
     ENDDO