Changeset 821 for codes


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

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

Location:
codes/icosagcm/devel
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin

    r685 r821  
    111111       PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 
    112112       DO l=1,llm+1 
    113           WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:))) 
     113          WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:))) 
    114114       END DO 
    115115       DO l=1,llm+1 
    116           WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:)))  
     116          WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:)))  
    117117       END DO 
    118118    END IF 

  • codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90

    r735 r821  
    303303          PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 
    304304          DO l=1,llm+1 
    305              WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] x', iter,l, MAXVAL(ABS(x_il(:,l))) 
     305             WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x', iter,l, MAXVAL(ABS(x_il(:,l))) 
    306306          END DO 
    307307       END IF 

  • codes/icosagcm/devel/src/kernels_hex/compute_NH_geopot.k90

    r724 r821  
    117117         PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 
    118118         DO l=1,llm+1 
    119             WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:))) 
     119            WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:))) 
    120120         END DO 
    121121         DO l=1,llm+1 
    122             WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:))) 
     122            WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:))) 
    123123         END DO 
    124124      END IF 

  • 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.