Ignore:
Timestamp:
04/15/19 00:31:19 (5 years ago)
Author:
dubos
Message:

devel : fix syntax of some WRITE statements (tolerated by ifort)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/parallel/domain.f90

    r813 r821  
    539539          DO i=1,nsplit_i 
    540540            ind_glo=ind_glo+1 
    541             WRITE(*,"(' ',i4.4  ,' |')",ADVANCE='NO'),domglo_rank(ind_glo)            
     541            WRITE(*,"(' ',i4.4  ,' |')", ADVANCE='NO') domglo_rank(ind_glo)            
    542542          END DO 
    543543          PRINT *,'' 
    … …  
    545545          WRITE(*,"('|')", ADVANCE='NO') 
    546546          DO i=1,nsplit_i 
    547             WRITE(*,"(' ','    ',' |')",ADVANCE='NO')          
     547            WRITE(*,"(' ','    ',' |')", ADVANCE='NO')          
    548548          ENDDO 
    549549          PRINT *,'' 
Note: See TracChangeset for help on using the changeset viewer.