/[lmdze]/trunk/dyn3d/caldyn.f
ViewVC logotype

Diff of /trunk/dyn3d/caldyn.f

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

revision 33 by guez, Fri Apr 9 10:56:14 2010 UTC revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC
# Line 10  SUBROUTINE caldyn(itau, ucov, vcov, teta Line 10  SUBROUTINE caldyn(itau, ucov, vcov, teta
10    USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1    USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1
11    USE comvert, ONLY : ap, bp    USE comvert, ONLY : ap, bp
12    USE comgeom, ONLY : airesurg, constang    USE comgeom, ONLY : airesurg, constang
   USE pression_m, ONLY : pression  
13    use sortvarc_m, only: sortvarc    use sortvarc_m, only: sortvarc
14    
15    IMPLICIT NONE    IMPLICIT NONE
# Line 45  SUBROUTINE caldyn(itau, ucov, vcov, teta Line 44  SUBROUTINE caldyn(itau, ucov, vcov, teta
44    !   Calcul des tendances dynamiques:    !   Calcul des tendances dynamiques:
45    
46    CALL covcont(llm, ucov, vcov, ucont, vcont)    CALL covcont(llm, ucov, vcov, ucont, vcont)
47    CALL pression(ip1jmp1, ap, bp, ps, p)    forall (l = 1: llm + 1) p(:, l) = ap(l) + bp(l) * ps
48    CALL psextbar(ps, psexbarxy)    CALL psextbar(ps, psexbarxy)
49    CALL massdair(p, masse)    CALL massdair(p, masse)
50    CALL massbar(masse, massebx, masseby)    CALL massbar(masse, massebx, masseby)
Legend:
Removed from v.33  
changed lines
  Added in v.37
  ViewVC Help
Powered by ViewVC 1.1.21