/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/WACCM_lu_slv/src/ |
H A D | kernel_driver.f90 | 15 INTEGER :: kgen_mpi_rank variable 28 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 29 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/WACCM_lu_fac/src/ |
H A D | kernel_driver.f90 | 15 INTEGER :: kgen_mpi_rank variable 28 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 29 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_limiter_optim_iter_full/src/ |
H A D | kernel_driver.f90 | 15 INTEGER :: kgen_mpi_rank variable 28 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 29 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_vrtqdr/src/ |
H A D | kernel_driver.f90 | 15 INTEGER :: kgen_mpi_rank variable 30 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 31 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_preq_omega_ps/src/ |
H A D | kernel_driver.f90 | 16 INTEGER :: kgen_mpi_rank variable 30 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 31 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_setcoef/src/ |
H A D | kernel_driver.f90 | 16 INTEGER :: kgen_mpi_rank variable 31 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 32 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_cldprmc/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 33 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 34 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_cldprmc/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 33 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 34 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 33 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 34 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
H A D | kernel_driver.f90 | 19 INTEGER :: kgen_mpi_rank variable 33 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 34 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rtrnmc/src/ |
H A D | kernel_driver.f90 | 19 INTEGER :: kgen_mpi_rank variable 34 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 35 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/WACCM_imp_sol/src/ |
H A D | kernel_driver.f90 | 19 INTEGER :: kgen_mpi_rank variable 35 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 36 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_reftra/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 34 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 35 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_preq_hydrostatic/src/ |
H A D | kernel_driver.f90 | 19 INTEGER :: kgen_mpi_rank variable 33 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 34 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_spcvmc/src/ |
H A D | kernel_driver.f90 | 33 INTEGER :: kgen_mpi_rank variable 49 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 50 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_remap_q_ppm/src/ |
H A D | kernel_driver.f90 | 25 INTEGER :: kgen_mpi_rank variable 43 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 44 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_vlaplace_sphere_wk/src/ |
H A D | kernel_driver.f90 | 26 INTEGER :: kgen_mpi_rank variable 45 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 46 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_cldprmc/src/ |
H A D | kernel_cldprmc.F90 | 15 INTEGER :: kgen_mpi_rank variable 32 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 2)+1) 33 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank 36 kgen_unit = kgen_get_newunit(kgen_mpi_rank+kgen_counter)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
H A D | rrtmg_lw_rad.f90 | 20 INTEGER :: kgen_mpi_rank, kgen_mpi_size, kgen_cur_rank local 151 CALL mpi_comm_rank ( MPI_COMM_WORLD, kgen_mpi_rank, kgen_ierr ) 162 … IF ( ANY(kgen_mpi_rank == kgen_mpi_rank_at) .AND. kgen_cur_rank == kgen_mpi_rank ) THEN 163 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank 167 kgen_unit = kgen_get_newunit(kgen_mpi_rank+kgen_counter) 172 …T *, "KGEN writes input state variables at count = ", kgen_counter, " on mpirank = ", kgen_mpi_rank 322 … IF ( ANY(kgen_mpi_rank == kgen_mpi_rank_at) .AND. kgen_cur_rank == kgen_mpi_rank ) THEN 324 … *, "KGEN writes output state variables at count = ", kgen_counter, " on mpirank = ", kgen_mpi_rank 355 PRINT *, "kgen_counter = ", kgen_counter, " at rank ", kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_inatm/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 60 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 61 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_inatm/src/ |
H A D | kernel_driver.f90 | 18 INTEGER :: kgen_mpi_rank variable 63 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 64 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_taumols/src/ |
H A D | kernel_driver.f90 | 33 INTEGER :: kgen_mpi_rank variable 68 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 69 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_binterp/src/ |
H A D | kernel_binterp.F90 | 18 INTEGER :: kgen_mpi_rank variable 34 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 35 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank 38 kgen_unit = kgen_get_newunit(kgen_mpi_rank+kgen_counter)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_binterp/src_orig/ |
H A D | kernel_binterp.F90 | 18 INTEGER :: kgen_mpi_rank variable 34 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 3)+1) 35 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank 38 kgen_unit = kgen_get_newunit(kgen_mpi_rank+kgen_counter)
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_reftra_sw/src/ |
H A D | kernel_reftra_sw.F90 | 17 INTEGER :: kgen_mpi_rank variable 35 kgen_mpi_rank = kgen_mpi_rank_at(mod(kgen_repeat_counter, 1)+1) 36 WRITE( kgen_mpi_rank_conv, * ) kgen_mpi_rank 39 kgen_unit = kgen_get_newunit(kgen_mpi_rank+kgen_counter)
|