/[lmdze]/trunk/libf/dyn3d/advtrac.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/advtrac.f90

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

revision 22 by guez, Thu Aug 7 12:29:13 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 iniadvtrac_m  
   USE comdissip  
18    IMPLICIT NONE    IMPLICIT NONE
19    
20    
# Line 291  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.22  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21