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

Diff of /trunk/dyn3d/groupe.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 150 by guez, Thu Jun 18 13:49:26 2015 UTC
# Line 1  Line 1 
1  SUBROUTINE groupe(pext, pbaru, pbarv, pbarum, pbarvm, wm)  SUBROUTINE groupe(pbaru, pbarv, pbarum, pbarvm, wm)
2    
3    ! From dyn3d/groupe.F, v 1.1.1.1 2004/05/19 12:53:06    ! From dyn3d/groupe.F, v 1.1.1.1 2004/05/19 12:53:06
4    
# Line 6  SUBROUTINE groupe(pext, pbaru, pbarv, pb Line 6  SUBROUTINE groupe(pext, pbaru, pbarv, pb
6    ! poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur      ! poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur  
7    ! et a mesure qu'on se rapproche du pole.                                ! et a mesure qu'on se rapproche du pole.                            
8    
9    ! en entree: pext, pbaru et pbarv                                        ! en entree: pbaru et pbarv                                    
10    ! en sortie:  pbarum, pbarvm et wm.                                        ! en sortie:  pbarum, pbarvm et wm.                                    
11    
12    ! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a        ! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a    
# Line 24  SUBROUTINE groupe(pext, pbaru, pbarv, pb Line 24  SUBROUTINE groupe(pext, pbaru, pbarv, pb
24    INTEGER, PARAMETER:: ngroup = 3    INTEGER, PARAMETER:: ngroup = 3
25    
26    REAL pbaru(iip1, jjp1, llm), pbarv(iip1, jjm, llm)    REAL pbaru(iip1, jjp1, llm), pbarv(iip1, jjm, llm)
   REAL pext(iip1, jjp1, llm)  
   
27    REAL, intent(out):: pbarum(iip1, jjp1, llm)    REAL, intent(out):: pbarum(iip1, jjp1, llm)
28    real pbarvm(iip1, jjm, llm)    real pbarvm(iip1, jjm, llm)
29    REAL wm(iip1, jjp1, llm)    REAL wm(iip1, jjp1, llm)
Legend:
Removed from v.134  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.21