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, |
16 |
C File. |
C File. |
17 |
c |
c |
18 |
c Modif : I.Musat (LMD/CNRS) date : 20041020 |
c Modif : I.Musat (LMD/CNRS) date : 20041020 |
19 |
c Outputs : axial components of wind AAM "aam" and total surface torque "torsfc", |
c Outputs : axial components of wind AAM "aam" and total surface torque |
20 |
|
C "torsfc", |
21 |
c but no write in the iam file. |
c but no write in the iam file. |
22 |
c |
c |
23 |
C WARNING: Only valid for regular rectangular grids. |
C WARNING: Only valid for regular rectangular grids. |
24 |
C REMARK: CALL DANS PHYSIQ AFTER lift_noro: |
C REMARK: CALL DANS PHYSIQ AFTER lift_noro: |
25 |
C CALL aaam_bud (27,klon,klev,rjourvrai,gmtime, |
C CALL aaam_bud (27,klon,klev, gmtime, |
26 |
C C ra,rg,romega, |
C C ra,rg,romega, |
27 |
C C rlat,rlon,pphis, |
C C rlat,rlon,pphis, |
28 |
C C zustrdr,zustrli,zustrph, |
C C zustrdr,zustrli,zustrph, |
37 |
c in physiq.F |
c in physiq.F |
38 |
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 |
39 |
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) |
|
40 |
c rsec----input-R-Seconde de la journee |
c rsec----input-R-Seconde de la journee |
41 |
c rea-----input-R-Earth radius |
c rea-----input-R-Earth radius |
42 |
c rg------input-R-gravity constant |
c rg------input-R-gravity constant |
89 |
c ARGUMENTS |
c ARGUMENTS |
90 |
c |
c |
91 |
INTEGER iam,nlon,nlev |
INTEGER iam,nlon,nlev |
|
REAL rjour |
|
92 |
real, intent(in):: rsec |
real, intent(in):: rsec |
93 |
real rea |
real rea |
94 |
real, intent(in):: rg |
real, intent(in):: rg |