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 | ||
| ) |

1.8.5