Changeset 3115 for LMDZ6/trunk/libf/phylmd/iophys.F90

Timestamp:

Dec 7, 2017, 3:45:01 PM (7 years ago)

Author:

Ehouarn Millour

Message:

Comply strictly to Fortran norm: add a space between "STOP" and message.
(in fact, "stop" should not be used at all... use abort_physic).
LF+EM

File:

• LMDZ6/trunk/libf/phylmd/iophys.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iophys.F90

@@ -95 +95 @@
     IF (klon/=klon_omp) THEN
       print*,'klon, klon_omp',klon,klon_omp
-      STOP'probleme de dimension parallele'
+      CALL abort_physic('iophys_ecrit','probleme de dimension parallele',1)
     ENDIF