read_pstoke0.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	read_pstoke0 (irec, zrec, zkon, zkev, 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_pstoke0	(	integer	irec,
		integer	zrec,
		integer	zkon,
		integer	zkev,
		real, dimension(nbp_lon*(nbp_lat-2)+2)	airefi,
		real, dimension(nbp_lon*(nbp_lat-2)+2)	phisfi,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	t,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	mfu,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	mfd,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	en_u,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	de_u,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	en_d,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	de_d,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	coefh,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	fm_therm,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	en_therm,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	frac_impa,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	frac_nucl,
		real, dimension(nbp_lon*(nbp_lat-2)+2)	pyu1,
		real, dimension(nbp_lon*(nbp_lat-2)+2)	pyv1,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	ftsol,
		real, dimension(nbp_lon*(nbp_lat-2)+2,nbp_lev)	psrf
	)

Definition at line 9 of file read_pstoke0.F90.