read_pstoke Subroutine

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)

Uses

  • proc~~read_pstoke~2~~UsesGraph proc~read_pstoke~2 read_pstoke module~indice_sol_mod indice_sol_mod proc~read_pstoke~2->module~indice_sol_mod module~mod_grid_phy_lmdz mod_grid_phy_lmdz proc~read_pstoke~2->module~mod_grid_phy_lmdz module~dimphy~3 dimphy proc~read_pstoke~2->module~dimphy~3 netcdf netcdf proc~read_pstoke~2->netcdf

Arguments

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

Calls

proc~~read_pstoke~2~~CallsGraph proc~read_pstoke~2 read_pstoke nf90_inq_varid nf90_inq_varid proc~read_pstoke~2->nf90_inq_varid nf90_get_var nf90_get_var proc~read_pstoke~2->nf90_get_var nf90_inq_dimid nf90_inq_dimid proc~read_pstoke~2->nf90_inq_dimid nf90_open nf90_open proc~read_pstoke~2->nf90_open proc~gr_ecrit_fi gr_ecrit_fi proc~read_pstoke~2->proc~gr_ecrit_fi nf90_inquire_dimension nf90_inquire_dimension proc~read_pstoke~2->nf90_inquire_dimension

Contents