read_pstoke.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_pstoke (irec, zrec, zklono, zklevo, airefi, phisfi, t, mfu, mfd, en_u, de_u, en_d, de_d, coefh, fm_therm, en_therm, frac_impa, frac_nucl, pyu1, pyv1, ftsol, psrf)

Function/Subroutine Documentation

subroutine read_pstoke	(	integer	irec,
		real	zrec,
		real	zklono,
		real	zklevo,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2)	airefi,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2)	phisfi,
		real, dimension(((nbp_lon/2)-1)*(nbp_lat/2)+2,nbp_lev)	t,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	mfu,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	mfd,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	en_u,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	de_u,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	en_d,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	de_d,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	coefh,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	fm_therm,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	en_therm,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	frac_impa,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	frac_nucl,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2)	pyu1,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2)	pyv1,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	ftsol,
		real, dimension(((nbp_lat/2)-1)*(nbp_lon/2)+2,nbp_lev)	psrf
	)

Definition at line 9 of file read_pstoke.F90.