Changeset 3531 for LMDZ6/trunk/libf/phylmd/cv30_routines.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/cv30_routines.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cv30_routines.F90

@@ -3298 +3298 @@
       integer i,k    
       real hp_bak(nloc,nd)
+      CHARACTER (LEN=20) :: modname='cv30_epmax_fn_cape'
+      CHARACTER (LEN=80) :: abort_message
 
         ! on recalcule ep et hp
@@ -3346 +3348 @@
            write(*,*) 'clw(i,k)=',clw(i,k)
            write(*,*) 'cpd,cpv=',cpd,cpv
-           stop
+           CALL abort_physic(modname,abort_message,0)
         endif
        enddo !do k=1,nl