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