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

Diff of /trunk/Sources/dyn3d/advtrac.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 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 8  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q Line 8  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q
8    !            D. Le Croller (07/2001)    !            D. Le Croller (07/2001)
9    !            M.A Filiberti (04/2002)    !            M.A Filiberti (04/2002)
10    
11    USE dimens_m    USE dimens_m, ONLY : iim, jjm, llm, nqmx
12    USE paramet_m    USE paramet_m, ONLY : iip1, iip2, ijmllm, ijp1llm, ip1jm, ip1jmp1, jjp1, &
13    USE comconst         llmp1
14    USE comvert    USE comconst, ONLY : dtvr
15    USE conf_gcm_m    USE conf_gcm_m, ONLY : iapp_tracvl
16    USE logic    USE iniadvtrac_m, ONLY : iadv
17    USE comgeom  
   USE temps  
   USE ener  
   USE advtrac_m  
   USE comdissip  
18    IMPLICIT NONE    IMPLICIT NONE
19    
20    
# Line 32  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q Line 28  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q
28    INTEGER iapptrac    INTEGER iapptrac
29    REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)    REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)
30    REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)    REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)
31    REAL p(ip1jmp1,llmp1), teta(ip1jmp1,llm)    REAL, intent(in):: p(ip1jmp1,llmp1)
32      real teta(ip1jmp1,llm)
33    REAL pk(ip1jmp1,llm)    REAL pk(ip1jmp1,llm)
34    
35    !-------------------------------------------------------------    !-------------------------------------------------------------
# Line 290  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q Line 287  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q
287       !   on reinitialise a zero les flux de masse cumules       !   on reinitialise a zero les flux de masse cumules
288       !---------------------------------------------------       !---------------------------------------------------
289       iadvtr = 0       iadvtr = 0
   
   
290    END IF    END IF
291    ! if iadvtr.EQ.iapp_tracvl                                  
   RETURN  
292  END SUBROUTINE advtrac  END SUBROUTINE advtrac
Legend:
Removed from v.3  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21