Changeset 3733


Ignore:
Timestamp:
04/10/18 09:50:03 (3 years ago)
Author:
omamce
Message:

O.M. : cut lines to compile with gfortran

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TOOLS/MOSAIX/src/MOSAIX/interpol.f90

    r3718 r3733  
    3838   CHARACTER (LEN = LEN ( "$Id$" )) :: & 
    3939      &   SVN_Id       =  "$Id$" 
    40    CHARACTER (LEN = LEN ( "$HeadURL$" )) :: & 
    41       &   SVN_HeadURL  =  "$HeadURL$" 
     40   CHARACTER (LEN = LEN ( & ! Strange line arrangement to match the max width (132 chars) 
     41    & "$HeadURL$" & 
     42    & )) :: & 
     43    & SVN_HeadURL  =  & 
     44    & "$HeadURL$" 
    4245 
    4346   !! 
     
    8588   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture domain_src ', 6I9)") rank, ni_src, nj_src 
    8689   ALLOCATE ( lon_src (ni_src, nj_src), lat_src (ni_src, nj_src) ) 
    87    WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src ', 6I9)") rank, SIZE (lon_src), SHAPE (lon_src), SIZE (lat_src), SHAPE (lat_src) 
     90   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src ', 6I9)") rank, SIZE (lon_src), & 
     91      &        SHAPE (lon_src), SIZE (lat_src), SHAPE (lat_src) 
    8892   !! 
    8993   ! 
Note: See TracChangeset for help on using the changeset viewer.