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

Diff of /trunk/dyn3d/convmas.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 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 5  Line 5 
5  c  c
6        use dimens_m        use dimens_m
7        use paramet_m        use paramet_m
8        use comvert        use disvert_m
9        use logic        use conf_gcm_m
10          use filtreg_m, only: filtreg
11        IMPLICIT NONE        IMPLICIT NONE
12    
13  c=======================================================================  c=======================================================================
# Line 36  c   Declarations: Line 37  c   Declarations:
37  c   -------------  c   -------------
38    
39    
40        REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm ),convm(  ip1jmp1,llm )        REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
41          real, intent(out):: convm(  ip1jmp1,llm )
42        INTEGER   l,ij        INTEGER   l,ij
43    
44    
# Line 49  c--------------------------------------- Line 51  c---------------------------------------
51  c   filtrage:  c   filtrage:
52  c   ---------  c   ---------
53    
54         CALL filtreg( convm, jjp1, llm, 2, 2, .true., 1 )         CALL filtreg( convm, jjp1, llm, 2, 2, .true.)
55    
56  c    integration de la convergence de masse de haut  en bas ......  c    integration de la convergence de masse de haut  en bas ......
57    
Legend:
Removed from v.3  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21