Changeset 2859 for LMDZ5/trunk/libf

Timestamp:

Apr 21, 2017, 11:52:49 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Preventing a hard to find crash when dimensions are not compatibe with those
of the restart file

File:

• LMDZ5/trunk/libf/dyn3d/dynetat0.f90 (modified) (1 diff)

LMDZ5/trunk/libf/dyn3d/dynetat0.f90

@@ -153 +153 @@
   INTEGER,          INTENT(IN) :: n1, n2
   CHARACTER(LEN=*), INTENT(IN) :: str1, str2
-  CHARACTER(LEN=256) :: s1, s2
+  CHARACTER(LEN=100) :: s1, s2
   IF(n1/=n2) THEN
     s1='value of '//TRIM(str1)//' ='
     s2=' read in starting file differs from parametrized '//TRIM(str2)//' ='
-    WRITE(msg,'(10x,a,i4,2x,a,i4)'),s1,n1,s2,n2
+    WRITE(msg,'(10x,a,i4,2x,a,i4)'),TRIM(ADJUSTL(s1)),n1,TRIM(ADJUSTL(s2)),n2
     CALL ABORT_gcm(TRIM(modname),TRIM(msg),1)
   END IF