7 |
! ************************************************************* |
! ************************************************************* |
8 |
! q,masse_adv_v,w sont des arguments d'entree pour le s-pg .... |
! q,masse_adv_v,w sont des arguments d'entree pour le s-pg .... |
9 |
! dq sont des arguments de sortie pour le s-pg .... |
! dq sont des arguments de sortie pour le s-pg .... |
10 |
! |
|
|
! |
|
|
! ---------------------------------------------------------------- |
|
|
use dimens_m |
|
|
use paramet_m |
|
11 |
use comconst |
use comconst |
12 |
use disvert_m |
use comgeom, only: aire |
13 |
use conf_gcm_m |
use conf_gcm_m |
14 |
use comgeom |
use dimens_m |
15 |
|
use disvert_m |
16 |
|
USE dynetat0_m, only: rlonv, rlonu |
17 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
18 |
|
use paramet_m |
19 |
|
|
20 |
IMPLICIT NONE |
IMPLICIT NONE |
21 |
! |
! |
22 |
! |
! |