/[lmdze]/trunk/Sources/dyn3d/fluxstokenc.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/fluxstokenc.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 15  contains Line 15  contains
15      USE tracstoke, ONLY: istdyn, istphy      USE tracstoke, ONLY: istdyn, istphy
16    
17      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
18      REAL masse(ip1jmp1, llm)      REAL, intent(in):: masse(ip1jmp1, llm)
19      real, intent(in):: phi(ip1jmp1, llm)      real, intent(in):: phi(ip1jmp1, llm)
20      real, intent(in):: teta(ip1jmp1, llm)      real, intent(in):: teta(ip1jmp1, llm)
21      REAL, intent(in):: phis(ip1jmp1)      REAL, intent(in):: phis(ip1jmp1)
# Line 67  contains Line 67  contains
67      END DO      END DO
68    
69      !   selection de la masse instantannee des mailles avant le transport.      !   selection de la masse instantannee des mailles avant le transport.
70      IF (itau == 0) THEN      IF (itau == 0) massem = masse
        CALL scopy(ip1jmp1*llm, masse, 1, massem, 1)  
     END IF  
71    
72      IF (mod(itau + 1, istdyn) == 0) THEN      IF (mod(itau + 1, istdyn) == 0) THEN
73         ! on advecte a ce pas de temps         ! on advecte a ce pas de temps
Legend:
Removed from v.82  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21