/[lmdze]/trunk/Sources/phylmd/aaam_bud.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/aaam_bud.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 1  Line 1 
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,
# Line 16  C No outputs, every AAM quantities are w Line 16  C No outputs, every AAM quantities are w
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,
# Line 36  c                 It is a formatted file Line 37  c                 It is a formatted file
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
# Line 89  c Line 89  c
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
# Line 99  c Line 98  c
98        REAL dragu(nlon),liftu(nlon),phyu(nlon)                    REAL dragu(nlon),liftu(nlon),phyu(nlon)            
99        REAL dragv(nlon),liftv(nlon),phyv(nlon)                    REAL dragv(nlon),liftv(nlon),phyv(nlon)            
100        REAL, intent(in):: p(nlon,nlev+1)        REAL, intent(in):: p(nlon,nlev+1)
101        real u(nlon,nlev), v(nlon,nlev)        real, intent(in):: u(nlon,nlev), v(nlon,nlev)
102  c  c
103  c Variables locales:  c Variables locales:
104  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21