Changeset 2163

Timestamp:

Dec 3, 2014, 10:51:56 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Pour pallier une idiosyncracie de gfortran (je ne suis pas pour)

File:

• LMDZ5/branches/testing/libf/phylmd/limit_netcdf.F90 (modified) (1 diff)

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

@@ -126 +126 @@
   ELSE
      WRITE(lunout,*) 'ERROR! No sea-ice input file was found.'
-     WRITE(lunout,*) 'One of following files must be availible : ',trim(famipsic),', ',trim(fcpldsic),', ',trim(fhistsic), trim(feraici)
+     WRITE(lunout,*) 'One of following files must be available : ',trim(famipsic),', ',&
+     &                trim(fcpldsic),', ',trim(fhistsic), trim(feraici)
      CALL abort_gcm('limit_netcdf','No sea-ice file was found',1)
   END IF