nagset.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	nagset (px1, py1, p1surf, kmsk1, kvmsk1, kngx1, kngy1, px2, py2, p2surf, kmsk2, kvmsk2, kngx2, kngy2, cdtyp, pr1to2, k1to2, kw1to2, psgr1, psgr2, psz12, krdwt, kwlun, knumber)

---

Function Documentation

subroutine nagset	(	REAL (kind=ip_realwp_p),dimension(kngx1,kngy1)	px1,
		REAL (kind=ip_realwp_p),dimension(kngx1,kngy1)	py1,
		REAL (kind=ip_realwp_p),dimension(kngx1,kngy1)	p1surf,
		INTEGER (kind=ip_intwp_p),dimension(kngx1,kngy1)	kmsk1,
			kvmsk1,
			kngx1,
			kngy1,
		REAL (kind=ip_realwp_p),dimension(kngx2,kngy2)	px2,
		REAL (kind=ip_realwp_p),dimension(kngx2,kngy2)	py2,
		REAL (kind=ip_realwp_p),dimension(kngx2,kngy2)	p2surf,
		INTEGER (kind=ip_intwp_p),dimension(kngx2,kngy2)	kmsk2,
			kvmsk2,
			kngx2,
			kngy2,
		CHARACTER*1	cdtyp,
		REAL (kind=ip_realwp_p),dimension(kw1to2,kngx2*kngy2)	pr1to2,
		INTEGER (kind=ip_intwp_p),dimension(kw1to2,kngx2*kngy2)	k1to2,
			kw1to2,
		REAL (kind=ip_realwp_p),dimension(kngx1,kngy1)	psgr1,
		REAL (kind=ip_realwp_p),dimension(kngx2,kngy2)	psgr2,
			psz12,
			krdwt,
			kwlun,
			knumber
	)

Definition at line 1 of file nagset.f.

References grstat(), icoor(), jcoor(), locread(), locrint(), locwrint(), locwrite(), mod_printing::nlogprt, mod_unit::nulan, mod_unit::nulou, prtout(), qcscur(), qgrhal(), and ssumr().

Referenced by fiasco().

Here is the call graph for this function:

Here is the caller graph for this function: