Changeset 822 for codes/icosagcm/devel
- Timestamp:
- 04/15/19 00:42:42 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/kernels_unst/compute_NH_geopot.k90
r686 r822 103 103 PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 104 104 DO l=1,llm+1 105 WRITE(*,'(A,I2.1,I3.2,E9.2)') ,'[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:)))105 WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] x_il', iter,l, MAXVAL(ABS(x_il(l,:))) 106 106 END DO 107 107 DO l=1,llm+1 108 WRITE(*,'(A,I2.1,I3.2,E9.2)') ,'[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:)))108 WRITE(*,'(A,I2.1,I3.2,E9.2)') '[hevi_solver] R_il', iter,l, MAXVAL(ABS(R_il(l,:))) 109 109 END DO 110 110 END IF
Note: See TracChangeset
for help on using the changeset viewer.