Changeset 821 for codes/icosagcm/devel/Python

Timestamp:

04/15/19 00:31:19 (5 years ago)

Author:

dubos

Message:

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

File:

• codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin (modified) (1 diff)

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

@@ -111 +111 @@
        PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il))
        DO l=1,llm+1
-          WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:)))
+          WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:)))
        END DO
        DO l=1,llm+1
-          WRITE(*,'(A,I2.1,I3.2,E9.2)'), '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:))) 
+          WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:))) 
        END DO
     END IF