Changeset 3531 for LMDZ6/trunk/libf/phylmd/create_limit_unstruct.F90

Timestamp:

Jun 6, 2019, 5:08:45 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Replaced STOP statements by a call to abort_physic in phylmd as per ticket #86
Still some work to be done in phylmd subdirectories

File:

• LMDZ6/trunk/libf/phylmd/create_limit_unstruct.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/create_limit_unstruct.F90

@@ -200 +200 @@
    INTEGER :: ij,ierr, n_extrap
    LOGICAL :: skip
-   
+
+   CHARACTER (len = 50)         :: modname = 'create_limit_unstruct.time_interpolation'
+   CHARACTER (len = 80)         :: abort_message
+
   
    IF (is_omp_master) ndays_in=year_len(annee_ref, calendar)
@@ -212 +215 @@
      yder = pchsp_95(timeyear, field_in(ij, :), ibeg=2, iend=2, vc_beg=0., vc_end=0.)
      CALL pchfe_95(timeyear, field_in(ij, :), yder, skip, arth(0., real(ndays_in) / ndays, ndays), field_out(ij, :), ierr)
-     if (ierr < 0) stop 1
+     if (ierr < 0) then
+        abort_message='error in pchfe_95'
+        CALL abort_physic(modname,abort_message,1)
+     endif
      n_extrap = n_extrap + ierr
    END DO