Home
last modified time | relevance | path

Searched refs:kgen_unit (Results 1 – 25 of 195) sorted by relevance

12345678

/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_kgs.f9030 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 Dkernel_driver.f9041 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 Dmo_lrtm_kgs.f9030 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 Dkernel_driver.f9041 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 Dmo_lrtm_kgs.f9030 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 Dkernel_driver.f9041 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 Dkernel_driver.f9021 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 Dkernel_driver.f9036 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 Dkernel_driver.f9021 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 Dmicro_mg_cam.F90131 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 Drrtmg_lw_rad.f90436 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 Drrtmg_sw_rad.f90511 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 Dkernel_driver.f9036 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 Drrtmg_lw_rad.f9023 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 Dkernel_inatm.F9024 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 Dkernel_driver.f9028 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 Dkernel_driver.f9046 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 Dradiation.F90117 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 Dphysics_types.F90124 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 Drrtmg_sw_rad.f90492 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 Dkernel_driver.f9040 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 Dkernel_driver.f9029 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 Drrtmg_lw_rad.f90387 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 Dkernel_binterp.F9048 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 Dkernel_binterp.F9048 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 …]

12345678