Functions/Subroutines | |
subroutine | convec_tube (npt, temps, proxy, pos_old, grid_old, pos_conv, grid_conv, pos_new, grid_new, d_conv, EE, ddp, pot, flg_ocbl, Rd) |
subroutine | integ (pos_loc, dpos) |
Real *8 function | cor_cnv (temps, proxy, pos_loc, dpos, psi0) |
Real *8 function | potar (temps, proxy, pos_loc, dpos, dtheta, psi0) |
subroutine | cross (pos1, pos2, pos3) |
subroutine | rotation (alpha, pos, dip, dir1, dir2) |
logical function | ocbl (temps, pos) |
subroutine convec_tube | ( | integer | npt, |
type(time_global) | temps, | ||
type(activite) | proxy, | ||
type(coordonnees), dimension(:) | pos_old, | ||
type(grille), dimension(:) | grid_old, | ||
type(coordonnees), dimension(:) | pos_conv, | ||
type(grille), dimension(:) | grid_conv, | ||
type(coordonnees), dimension(:) | pos_new, | ||
type(grille), dimension(:) | grid_new, | ||
real*8, dimension(:) | d_conv, | ||
real*8, dimension(:) | EE, | ||
real | ddp, | ||
real | pot, | ||
logical | flg_ocbl, | ||
type(courbure), dimension(:) | Rd | ||
) |
Real*8 function cor_cnv | ( | type(time_global) | temps, |
type(activite) | proxy, | ||
type(coordonnees) | pos_loc, | ||
real*8, dimension(4) | dpos, | ||
real*8 | psi0 | ||
) |
subroutine cross | ( | real*8, dimension(:) | pos1, |
real*8, dimension(:) | pos2, | ||
real*8, dimension(:) | pos3 | ||
) |
subroutine integ | ( | type(coordonnees) | pos_loc, |
real*8, dimension(:) | dpos | ||
) |
logical function ocbl | ( | type(calendar) | temps, |
type(coordonnees) | pos | ||
) |
Real*8 function potar | ( | type(time_global) | temps, |
type(activite) | proxy, | ||
type(coordonnees) | pos_loc, | ||
real*8, dimension(:) | dpos, | ||
real*8 | dtheta, | ||
real*8 | psi0 | ||
) |
subroutine rotation | ( | real*8 | alpha, |
type(coordonnees) | pos, | ||
real*8 | dip, | ||
real*8, dimension(:) | dir1, | ||
real*8, dimension(:) | dir2 | ||
) |