Changeset 2839 for LMDZ5/branches/testing/libf/phylmd/limit_read_mod.F90

Timestamp:

Mar 30, 2017, 4:16:38 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2785:2838 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/limit_read_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/limit_read_mod.F90

@@ -223 +223 @@
           ierr=NF90_INQUIRE(nid, UnlimitedDimID=ndimid)
           ierr=NF90_INQUIRE_DIMENSION(nid, ndimid, len=nn)
-          WRITE(abort_message,'(a,2(i0,a))')'limit.nc records number (',nn,') does no'//&
+          WRITE(abort_message,'(a,2(i3,a))')'limit.nc records number (',nn,') does no'//&
             't match year length (',year_len,')'
           IF(nn/=year_len) CALL abort_physic(modname,abort_message,1)