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

LMDZ6/trunk/libf/phylmd/yamada4.F90

@@ -152 +152 @@
   !$OMP THREADPRIVATE(firstcall)
 
+  CHARACTER (len = 20) :: modname = 'yamada4'
+  CHARACTER (len = 80) :: abort_message
+
 
 
@@ -199 +202 @@
     ENDIF
 
-    PRINT*,'YAMADA4 RIc, RIfc, Sm_min, Alpha_min',ric,rifc,seuilsm,seuilalpha
+    WRITE(lunout,*)'YAMADA4 RIc, RIfc, Sm_min, Alpha_min',ric,rifc,seuilsm,seuilalpha
     firstcall = .FALSE.
     CALL getin_p('lmixmin',lmixmin)
@@ -216 +219 @@
 
   IF (.NOT. (iflag_pbl>=6 .AND. iflag_pbl<=12)) THEN
-    STOP 'probleme de coherence dans appel a MY'
+    abort_message='probleme de coherence dans appel a MY'
+    CALL abort_physic(modname,abort_message,1)
   END IF
 
@@ -537 +541 @@
 
   ELSE
-    STOP 'Cas nom prevu dans yamada4'
+     abort_message='Cas nom prevu dans yamada4'
+     CALL abort_physic(modname,abort_message,1)
 
   END IF ! Fin du cas 8
@@ -590 +595 @@
 
   IF (prt_level>1) THEN
-    PRINT *, 'YAMADA4 0'
+    WRITE(lunout,*) 'YAMADA4 0'
   END IF 
 
@@ -660 +665 @@
 
   IF (prt_level>1) THEN
-    PRINT *, 'YAMADA4 1'
+    WRITE(lunout,*)'YAMADA4 1'
   END IF !(prt_level>1) THEN