/[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

trunk/dyn3d/fluxstokenc.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/Sources/dyn3d/fluxstokenc.f revision 144 by guez, Wed Jun 10 16:46:46 2015 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 37  contains Line 37  contains
37      !-------------------------------------------------------------      !-------------------------------------------------------------
38    
39      IF (itau == 0) THEN      IF (itau == 0) THEN
40         CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, nqmx, &         CALL initfluxsto(time_step, istdyn*time_step, istdyn*time_step, &
41              fluxid, fluxvid, fluxdid)              fluxid, fluxvid, fluxdid)
42         CALL histwrite(fluxid, 'phis', 1, phis)         CALL histwrite(fluxid, 'phis', 1, phis)
43         CALL histwrite(fluxid, 'aire', 1, aire)         CALL histwrite(fluxid, 'aire', 1, aire)
# 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.76  
changed lines
  Added in v.144
  ViewVC Help
Powered by ViewVC 1.1.21