51 |
! cu_2d, cuv, cuscal, cuz sont respectivement les valeurs de cu_2d |
! cu_2d, cuv, cuscal, cuz sont respectivement les valeurs de cu_2d |
52 |
! Cf. "inigeom.txt". |
! Cf. "inigeom.txt". |
53 |
|
|
54 |
USE dimens_m, ONLY : iim, jjm |
USE comconst, ONLY : g, omeg, rad |
|
USE paramet_m, ONLY : iip1, jjp1 |
|
|
USE comconst, ONLY : g, omeg, pi, rad |
|
|
USE comdissnew, ONLY : coefdis, nitergdiv, nitergrot, niterh |
|
|
USE logic, ONLY : fxyhypb, ysinus |
|
55 |
USE comgeom, ONLY : airesurg_2d, aireu_2d, airev_2d, aire_2d, & |
USE comgeom, ONLY : airesurg_2d, aireu_2d, airev_2d, aire_2d, & |
56 |
alpha1p2_2d, alpha1p4_2d, alpha1_2d, & |
alpha1p2_2d, alpha1p4_2d, alpha1_2d, & |
57 |
alpha2p3_2d, alpha2_2d, alpha3p4_2d, alpha3_2d, alpha4_2d, apoln, & |
alpha2p3_2d, alpha2_2d, alpha3p4_2d, alpha3_2d, alpha4_2d, apoln, & |
61 |
rlatv, rlonu, rlonv, unsairez_2d, unsaire_2d, unsairz_gam_2d, & |
rlatv, rlonu, rlonv, unsairez_2d, unsaire_2d, unsairz_gam_2d, & |
62 |
unsair_gam1_2d, unsair_gam2_2d, unsapolnga1, unsapolnga2, & |
unsair_gam1_2d, unsair_gam2_2d, unsapolnga1, unsapolnga2, & |
63 |
unsapolsga1, unsapolsga2, unscu2_2d, unscv2_2d, xprimu, xprimv |
unsapolsga1, unsapolsga2, unscu2_2d, unscv2_2d, xprimu, xprimv |
64 |
|
USE comdissnew, ONLY : coefdis, nitergdiv, nitergrot, niterh |
65 |
|
USE dimens_m, ONLY : iim, jjm |
66 |
|
USE logic, ONLY : fxyhypb, ysinus |
67 |
|
use nr_util, only: pi |
68 |
|
USE paramet_m, ONLY : iip1, jjp1 |
69 |
USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, & |
USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, & |
70 |
grossismy, pxo, pyo, taux, tauy, transx, transy |
grossismy, pxo, pyo, taux, tauy, transx, transy |
71 |
|
|