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

Diff of /trunk/dyn3d/dteta1.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 43 by guez, Fri Apr 8 12:43:31 2011 UTC
# Line 5  Line 5 
5        use dimens_m        use dimens_m
6        use paramet_m        use paramet_m
7        use logic        use logic
8          use filtreg_m, only: filtreg
9    
10        IMPLICIT NONE        IMPLICIT NONE
11    
12  c=======================================================================  c=======================================================================
# Line 24  c======================================= Line 26  c=======================================
26    
27    
28    
29        REAL teta( ip1jmp1,llm ),pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)        REAL, intent(in):: teta( ip1jmp1,llm )
30          real pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm)
31        REAL dteta( ip1jmp1,llm )        REAL dteta( ip1jmp1,llm )
32        INTEGER   l,ij        INTEGER   l,ij
33    
Legend:
Removed from v.3  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.21