/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/ |
H A D | mo_lrtm_kgs.f90 | 30 READ(UNIT=kgen_unit) chi_mls 31 READ(UNIT=kgen_unit) totplanck 84 READ(UNIT=kgen_unit) absa 85 READ(UNIT=kgen_unit) absb 86 READ(UNIT=kgen_unit) ka_mn2 87 READ(UNIT=kgen_unit) kb_mn2 89 READ(UNIT=kgen_unit) forref 153 READ(UNIT=kgen_unit) absa 154 READ(UNIT=kgen_unit) absb 222 READ(UNIT=kgen_unit) absa [all …]
|
H A D | kernel_driver.f90 | 41 INTEGER :: kgen_ierr, kgen_unit variable 58 kgen_unit = kgen_get_newunit() 89 READ(UNIT=kgen_unit) kbdim 90 READ(UNIT=kgen_unit) klev 91 READ(UNIT=kgen_unit) nb_sw 92 READ(UNIT=kgen_unit) kproma 93 READ(UNIT=kgen_unit) ktrac 98 CLOSE (UNIT=kgen_unit) 104 integer, intent(in) :: kgen_unit local 109 READ(UNIT = kgen_unit) is_save [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/ |
H A D | mo_lrtm_kgs.f90 | 30 READ(UNIT=kgen_unit) chi_mls 31 READ(UNIT=kgen_unit) totplanck 84 READ(UNIT=kgen_unit) absa 85 READ(UNIT=kgen_unit) absb 86 READ(UNIT=kgen_unit) ka_mn2 87 READ(UNIT=kgen_unit) kb_mn2 89 READ(UNIT=kgen_unit) forref 153 READ(UNIT=kgen_unit) absa 154 READ(UNIT=kgen_unit) absb 222 READ(UNIT=kgen_unit) absa [all …]
|
H A D | kernel_driver.f90 | 41 INTEGER :: kgen_ierr, kgen_unit variable 58 kgen_unit = kgen_get_newunit() 89 READ(UNIT=kgen_unit) kbdim 90 READ(UNIT=kgen_unit) klev 91 READ(UNIT=kgen_unit) nb_sw 92 READ(UNIT=kgen_unit) kproma 93 READ(UNIT=kgen_unit) ktrac 98 CLOSE (UNIT=kgen_unit) 104 integer, intent(in) :: kgen_unit local 109 READ(UNIT = kgen_unit) is_save [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/ |
H A D | mo_lrtm_kgs.f90 | 30 READ(UNIT=kgen_unit) chi_mls 31 READ(UNIT=kgen_unit) totplanck 84 READ(UNIT=kgen_unit) absa 85 READ(UNIT=kgen_unit) absb 86 READ(UNIT=kgen_unit) ka_mn2 87 READ(UNIT=kgen_unit) kb_mn2 89 READ(UNIT=kgen_unit) forref 153 READ(UNIT=kgen_unit) absa 154 READ(UNIT=kgen_unit) absb 222 READ(UNIT=kgen_unit) absa [all …]
|
H A D | kernel_driver.f90 | 41 INTEGER :: kgen_ierr, kgen_unit variable 58 kgen_unit = kgen_get_newunit() 89 READ(UNIT=kgen_unit) kbdim 90 READ(UNIT=kgen_unit) klev 91 READ(UNIT=kgen_unit) nb_sw 92 READ(UNIT=kgen_unit) kproma 93 READ(UNIT=kgen_unit) ktrac 98 CLOSE (UNIT=kgen_unit) 104 integer, intent(in) :: kgen_unit local 109 READ(UNIT = kgen_unit) is_save [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_inatm/src/ |
H A D | kernel_driver.f90 | 21 INTEGER :: kgen_ierr, kgen_unit variable 66 kgen_unit = kgen_get_newunit() 78 READ(UNIT=kgen_unit) ncol 79 READ(UNIT=kgen_unit) nlay 80 READ(UNIT=kgen_unit) icld 92 READ(UNIT=kgen_unit) dyofyr 93 READ(UNIT=kgen_unit) adjes 95 READ(UNIT=kgen_unit) inflgsw 96 READ(UNIT=kgen_unit) iceflgsw 97 READ(UNIT=kgen_unit) liqflgsw [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_taumols/src/ |
H A D | kernel_driver.f90 | 36 INTEGER :: kgen_ierr, kgen_unit variable 71 kgen_unit = kgen_get_newunit() 99 READ(UNIT=kgen_unit) nlayers 100 READ(UNIT=kgen_unit) ncol 124 CLOSE (UNIT=kgen_unit) 137 READ(UNIT = kgen_unit) is_true 143 READ(UNIT = kgen_unit) var 158 READ(UNIT = kgen_unit) is_true 166 READ(UNIT = kgen_unit) var 181 READ(UNIT = kgen_unit) is_true [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_inatm/src/ |
H A D | kernel_driver.f90 | 21 INTEGER :: kgen_ierr, kgen_unit variable 63 kgen_unit = kgen_get_newunit() 76 READ(UNIT=kgen_unit) ncol 77 READ(UNIT=kgen_unit) nlay 78 READ(UNIT=kgen_unit) icld 95 READ(UNIT=kgen_unit) inflglw 96 READ(UNIT=kgen_unit) iceflglw 97 READ(UNIT=kgen_unit) liqflglw 110 CLOSE (UNIT=kgen_unit) 123 READ(UNIT = kgen_unit) is_true [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/CAM5_mg2_pgi/src/ |
H A D | micro_mg_cam.F90 | 131 INTEGER, INTENT(IN) :: kgen_unit local 132 READ(UNIT=kgen_unit) num_steps 187 integer, intent(in) :: kgen_unit local 1009 READ(UNIT = kgen_unit) is_true 1017 READ(UNIT = kgen_unit) var 1032 READ(UNIT = kgen_unit) is_true 1042 READ(UNIT = kgen_unit) var 1057 READ(UNIT = kgen_unit) is_true 1065 READ(UNIT = kgen_unit) var 1080 READ(UNIT = kgen_unit) is_true [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_setcoef/src/ |
H A D | rrtmg_lw_rad.f90 | 436 READ(UNIT=kgen_unit) pavel 437 READ(UNIT=kgen_unit) tavel 438 READ(UNIT=kgen_unit) tz 442 READ(UNIT=kgen_unit) wkl 445 READ(UNIT=kgen_unit) jp 446 READ(UNIT=kgen_unit) jt 447 READ(UNIT=kgen_unit) jt1 453 READ(UNIT=kgen_unit) colo3 455 READ(UNIT=kgen_unit) colco 457 READ(UNIT=kgen_unit) colo2 [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_spcvmc/src/ |
H A D | rrtmg_sw_rad.f90 | 511 READ(UNIT=kgen_unit) iend 512 READ(UNIT=kgen_unit) icpr 513 READ(UNIT=kgen_unit) iout 514 READ(UNIT=kgen_unit) idelm 515 READ(UNIT=kgen_unit) pavel 517 READ(UNIT=kgen_unit) pz 518 READ(UNIT=kgen_unit) tz 521 READ(UNIT=kgen_unit) wkl 529 READ(UNIT=kgen_unit) jp 530 READ(UNIT=kgen_unit) jt [all …]
|
H A D | kernel_driver.f90 | 36 INTEGER :: kgen_ierr, kgen_unit variable 52 kgen_unit = kgen_get_newunit() 61 CALL kgen_read_externs_rrsw_tbl(kgen_unit) 62 CALL kgen_read_externs_rrsw_kg19(kgen_unit) 66 CALL kgen_read_externs_rrsw_wvn(kgen_unit) 67 CALL kgen_read_externs_rrsw_vsn(kgen_unit) 78 CALL kgen_read_externs_rrsw_con(kgen_unit) 81 READ(UNIT=kgen_unit) lchnk 82 READ(UNIT=kgen_unit) ncol 83 READ(UNIT=kgen_unit) nlay [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_inatm/src/ |
H A D | rrtmg_lw_rad.f90 | 23 INTEGER :: kgen_ierr, kgen_unit local 160 kgen_unit = -1 312 IF ( kgen_unit > 0 ) THEN 347 ENDFILE kgen_unit 349 CLOSE (UNIT=kgen_unit) 428 INTEGER, OPTIONAL, INTENT(IN) :: kgen_unit local 493 IF ( present(kgen_unit) ) THEN 494 WRITE(UNIT = kgen_unit) avogad 495 WRITE(UNIT = kgen_unit) grav 496 WRITE(UNIT = kgen_unit) ixindx [all …]
|
H A D | kernel_inatm.F90 | 24 INTEGER, INTENT(IN) :: kgen_unit local 111 READ(UNIT = kgen_unit) iaer 112 READ(UNIT = kgen_unit) iplon 116 READ(UNIT = kgen_unit) avogad 117 READ(UNIT = kgen_unit) grav 118 READ(UNIT = kgen_unit) ixindx 135 READ(UNIT = kgen_unit) outstate_tz 136 READ(UNIT = kgen_unit) outstate_pz 144 READ(UNIT = kgen_unit) outstate_wx 743 INTEGER :: kgen_ierr, kgen_unit variable [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_remap_q_ppm/src/ |
H A D | kernel_driver.f90 | 28 INTEGER :: kgen_ierr, kgen_unit variable 46 kgen_unit = kgen_get_newunit() 59 READ(UNIT=kgen_unit) nx 60 READ(UNIT=kgen_unit) qsize 66 CLOSE (UNIT=kgen_unit) 72 integer, intent(in) :: kgen_unit local 77 READ(UNIT = kgen_unit) is_save 88 READ(UNIT = kgen_unit) var 92 integer, intent(in) :: kgen_unit local 97 READ(UNIT = kgen_unit) is_save [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/ |
H A D | kernel_driver.f90 | 46 INTEGER :: kgen_ierr, kgen_unit variable 63 kgen_unit = kgen_get_newunit() 90 CALL kgen_read_externs_scammod(kgen_unit) 92 CALL kgen_read_externs_radsw(kgen_unit) 100 CALL kgen_read_mod42(state, kgen_unit) 101 CALL kgen_read_mod43(cam_out, kgen_unit) 102 CALL kgen_read_mod43(cam_in, kgen_unit) 106 CLOSE (UNIT=kgen_unit) 112 INTEGER, INTENT(IN) :: kgen_unit local 119 READ(UNIT = kgen_unit) is_true [all …]
|
H A D | radiation.F90 | 117 integer, intent(in) :: kgen_unit local 411 INTEGER, INTENT(IN) :: kgen_unit local 418 READ(UNIT = kgen_unit) is_true 424 READ(UNIT = kgen_unit) var 439 READ(UNIT = kgen_unit) is_true 447 READ(UNIT = kgen_unit) var 462 READ(UNIT = kgen_unit) is_true 470 READ(UNIT = kgen_unit) var 485 READ(UNIT = kgen_unit) is_true 495 READ(UNIT = kgen_unit) var [all …]
|
H A D | physics_types.F90 | 124 READ(UNIT = kgen_unit) is_true 130 READ(UNIT = kgen_unit) var 208 INTEGER, INTENT(IN) :: kgen_unit local 211 READ(UNIT=kgen_unit) var%lchnk 215 READ(UNIT=kgen_unit) var%ngrdcol 219 READ(UNIT=kgen_unit) var%nsubcol 223 READ(UNIT=kgen_unit) var%psetcols 227 READ(UNIT=kgen_unit) var%ncol 231 READ(UNIT=kgen_unit) var%indcol 395 READ(UNIT=kgen_unit) var%count [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_setcoef/src/ |
H A D | rrtmg_sw_rad.f90 | 492 READ(UNIT=kgen_unit) pavel 493 READ(UNIT=kgen_unit) tavel 494 READ(UNIT=kgen_unit) pz 495 READ(UNIT=kgen_unit) tz 498 READ(UNIT=kgen_unit) wkl 502 READ(UNIT=kgen_unit) jp 503 READ(UNIT=kgen_unit) jt 504 READ(UNIT=kgen_unit) jt1 507 READ(UNIT=kgen_unit) colo3 510 READ(UNIT=kgen_unit) colo2 [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/ |
H A D | kernel_driver.f90 | 40 INTEGER :: kgen_ierr, kgen_unit variable 55 kgen_unit = kgen_get_newunit() 64 CALL kgen_read_externs_rrlw_cld(kgen_unit) 65 CALL kgen_read_externs_rrlw_vsn(kgen_unit) 72 CALL kgen_read_externs_rrlw_ref(kgen_unit) 74 CALL kgen_read_externs_rrlw_wvn(kgen_unit) 88 READ(UNIT=kgen_unit) lchnk 89 READ(UNIT=kgen_unit) ncol 90 READ(UNIT=kgen_unit) rrtmg_levs 91 CALL kgen_read_mod31(r_state, kgen_unit) [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/HOMME_vlaplace_sphere_wk/src/ |
H A D | kernel_driver.f90 | 29 INTEGER :: kgen_ierr, kgen_unit variable 48 kgen_unit = kgen_get_newunit() 61 READ(UNIT=kgen_unit) nt 62 READ(UNIT=kgen_unit) nets 63 READ(UNIT=kgen_unit) nete 70 CLOSE (UNIT=kgen_unit) 76 INTEGER, INTENT(IN) :: kgen_unit local 83 READ(UNIT = kgen_unit) is_true 100 INTEGER, INTENT(IN) :: kgen_unit local 107 READ(UNIT = kgen_unit) is_true [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rtrnmc/src/ |
H A D | rrtmg_lw_rad.f90 | 387 READ(UNIT=kgen_unit) istart 388 READ(UNIT=kgen_unit) iend 389 READ(UNIT=kgen_unit) iout 390 READ(UNIT=kgen_unit) pz 391 READ(UNIT=kgen_unit) pwvcm 393 READ(UNIT=kgen_unit) fracs 394 READ(UNIT=kgen_unit) taut 405 READ(UNIT=kgen_unit) fnet 406 READ(UNIT=kgen_unit) htr 409 READ(UNIT=kgen_unit) fnetc [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_binterp/src/ |
H A D | kernel_binterp.F90 | 48 CLOSE (UNIT=kgen_unit) 58 INTEGER, INTENT(IN) :: kgen_unit local 97 READ(UNIT = kgen_unit) itab 98 READ(UNIT = kgen_unit) refr 99 READ(UNIT = kgen_unit) cext 100 READ(UNIT = kgen_unit) utab 113 READ(UNIT = kgen_unit) ttab 114 READ(UNIT = kgen_unit) refi 115 READ(UNIT = kgen_unit) ncol 116 READ(UNIT = kgen_unit) jtab [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_binterp/src_orig/ |
H A D | kernel_binterp.F90 | 48 CLOSE (UNIT=kgen_unit) 58 INTEGER, INTENT(IN) :: kgen_unit local 94 READ(UNIT = kgen_unit) itab 95 READ(UNIT = kgen_unit) refr 96 READ(UNIT = kgen_unit) cext 97 READ(UNIT = kgen_unit) utab 110 READ(UNIT = kgen_unit) ttab 111 READ(UNIT = kgen_unit) refi 112 READ(UNIT = kgen_unit) ncol 113 READ(UNIT = kgen_unit) jtab [all …]
|