1 |
subroutine aaam_bud (iam,nlon,nlev,rjour,rsec, |
subroutine aaam_bud (iam,nlon,nlev,rsec, |
2 |
i rea,rg,ome, |
i rea,rg,ome, |
3 |
i plat,plon,phis, |
i plat,plon,phis, |
4 |
i dragu,liftu,phyu, |
i dragu,liftu,phyu, |
36 |
c in physiq.F |
c in physiq.F |
37 |
c nlon----input-I-Total number of horizontal points that get into physics |
c nlon----input-I-Total number of horizontal points that get into physics |
38 |
c nlev----input-I-Number of vertical levels |
c nlev----input-I-Number of vertical levels |
|
c rjour---input-R-Jour compte depuis le debut de la simu (run.def) |
|
39 |
c rsec----input-R-Seconde de la journee |
c rsec----input-R-Seconde de la journee |
40 |
c rea-----input-R-Earth radius |
c rea-----input-R-Earth radius |
41 |
c rg------input-R-gravity constant |
c rg------input-R-gravity constant |
88 |
c ARGUMENTS |
c ARGUMENTS |
89 |
c |
c |
90 |
INTEGER iam,nlon,nlev |
INTEGER iam,nlon,nlev |
|
REAL rjour |
|
91 |
real, intent(in):: rsec |
real, intent(in):: rsec |
92 |
real rea |
real rea |
93 |
real, intent(in):: rg |
real, intent(in):: rg |