Ignore:
Timestamp:
09/07/15 18:28:16 (9 years ago)
Author:
llfita
Message:

Modifying code to be 'gfortran' compatible:

  • Change WRITE(' ',)... by PRINT *,
  • Shorten some code lines
File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/domain.f90

    r327 r358  
    472472    
    473473      ind_glo=0 
    474       WRITE(*,'') 
     474      PRINT *,'' 
    475475      PRINT*, '      MPI PROCESS DISTRIBUTION' 
    476       WRITE(*,'') 
     476      PRINT *,'' 
    477477       
    478478      WRITE(*,"(' ')", ADVANCE='NO') 
    … …  
    480480        WRITE(*,"('=')", ADVANCE='NO') 
    481481      ENDDO 
    482       WRITE(*,'') 
     482      PRINT *,'' 
    483483 
    484484      DO nf=1,nb_face 
    … …  
    489489              WRITE(*,"('-')", ADVANCE='NO') 
    490490            ENDDO 
    491             WRITE(*,'') 
     491            PRINT *,'' 
    492492          ENDIF 
    493493 
    … …  
    496496            WRITE(*,"(' ','    ',' |')",ADVANCE='NO')          
    497497          ENDDO 
    498           WRITE(*,'') 
     498          PRINT *,'' 
    499499 
    500500          WRITE(*,"('|')", ADVANCE='NO') 
    … …  
    503503            WRITE(*,"(' ',i4.4  ,' |')",ADVANCE='NO'),domglo_rank(ind_glo)            
    504504          END DO 
    505           WRITE(*,'') 
     505          PRINT *,'' 
    506506 
    507507          WRITE(*,"('|')", ADVANCE='NO') 
    … …  
    509509            WRITE(*,"(' ','    ',' |')",ADVANCE='NO')          
    510510          ENDDO 
    511           WRITE(*,'') 
     511          PRINT *,'' 
    512512 
    513513        ENDDO 
    … …  
    517517          WRITE(*,"('=')", ADVANCE='NO') 
    518518        ENDDO 
    519         WRITE(*,'') 
     519        PRINT *,'' 
    520520      ENDDO 
    521521    ENDIF 
Note: See TracChangeset for help on using the changeset viewer.