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/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 
Note: See TracChangeset for help on using the changeset viewer.