Changeset 3115 for LMDZ6/trunk/libf/phylmd

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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• iophys.F90 (modified) (1 diff)
• rrtm/suecrad.F90 (modified) (8 diffs)

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
 

LMDZ6/trunk/libf/phylmd/rrtm/suecrad.F90

@@ -681 +681 @@
 !    CALL GSTATS(667,0)     MPL 2.12.08
     IF( NPROC > 1 )THEN
-      stop'Pas pret pour proc > 1'
+      stop 'Pas pret pour proc > 1'
 !     CALL MPL_BROADCAST (RADGRID%NDGLG,MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
     ENDIF
@@ -689 +689 @@
     ENDIF
     IF( NPROC > 1 )THEN
-      stop'Pas pret pour proc > 1'
+      stop 'Pas pret pour proc > 1'
 !     CALL MPL_BROADCAST (RADGRID%NRGRI(1:RADGRID%NDGLG),MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
     ENDIF
@@ -864 +864 @@
         WRITE(NULOUT,'("RADGRID,BEGIN")')
         IF( MYPROC /= 1 )THEN
-          stop'Pas pret pour proc > 1'
+          stop 'Pas pret pour proc > 1'
 !         CALL MPL_SEND(RADGRID%NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.R')
 !         CALL MPL_SEND(ZLATX(1:RADGRID%NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD.R')
@@ -876 +876 @@
               ENDDO
             ELSE
-              stop'Pas pret pour proc > 1'
+              stop 'Pas pret pour proc > 1'
 !             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.M')
 !             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD.M')
@@ -904 +904 @@
         WRITE(NULOUT,'("MODELGRID,BEGIN")')
         IF( MYPROC /= 1 )THEN
-          stop'Pas pret pour proc > 1'
+          stop 'Pas pret pour proc > 1'
 !         CALL MPL_SEND(NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD')
 !         CALL MPL_SEND(ZLATX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD')
@@ -917 +917 @@
               ENDDO
             ELSE
-              stop'Pas pret pour proc > 1'
+              stop 'Pas pret pour proc > 1'
 !             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD')
 !             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD')
@@ -1166 +1166 @@
         IWIDE(10)=NAROB1
         IF( MYPROC /= 1 )THEN
-          stop'Pas pret pour proc > 1'
+          stop 'Pas pret pour proc > 1'
 !         CALL MPL_SEND(IWIDE(1:10),KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.W')
         ENDIF
@@ -1172 +1172 @@
           DO JROC=1,NPROC
             IF( JROC /= MYPROC )THEN
-              stop'Pas pret pour proc > 1'
+              stop 'Pas pret pour proc > 1'
 !             CALL MPL_RECV(IWIDE(1:10),KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.W')
             ENDIF