Changeset 821 for codes/icosagcm/devel
- Timestamp:
- 04/15/19 00:31:19 (5 years ago)
- Location:
- codes/icosagcm/devel
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/Python/src/kernels_caldyn_NH.jin
r685 r821 111 111 PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 112 112 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,:))) 114 114 END DO 115 115 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,:))) 117 117 END DO 118 118 END IF -
codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90
r735 r821 303 303 PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 304 304 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))) 306 306 END DO 307 307 END IF -
codes/icosagcm/devel/src/kernels_hex/compute_NH_geopot.k90
r724 r821 117 117 PRINT *, '[hevi_solver] C,D', iter, MAXVAL(ABS(C_ik)),MAXVAL(ABS(D_il)) 118 118 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,:))) 120 120 END DO 121 121 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,:))) 123 123 END DO 124 124 END IF -
codes/icosagcm/devel/src/parallel/domain.f90
r813 r821 539 539 DO i=1,nsplit_i 540 540 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) 542 542 END DO 543 543 PRINT *,'' … … 545 545 WRITE(*,"('|')", ADVANCE='NO') 546 546 DO i=1,nsplit_i 547 WRITE(*,"(' ',' ',' |')", ADVANCE='NO')547 WRITE(*,"(' ',' ',' |')", ADVANCE='NO') 548 548 ENDDO 549 549 PRINT *,''
Note: See TracChangeset
for help on using the changeset viewer.