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

Diff of /trunk/dyn3d/tourpot.f

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

trunk/libf/dyn3d/tourpot.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/tourpot.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 22  c======================================= Line 22  c=======================================
22    
23        use dimens_m        use dimens_m
24        use paramet_m        use paramet_m
25        use logic        use conf_gcm_m
26        use comgeom        use comgeom
27          use filtreg_m, only: filtreg
28    
29        IMPLICIT NONE        IMPLICIT NONE
30    
31        REAL  rot( ip1jm,llm )        REAL  rot( ip1jm,llm )
# Line 59  CDIR$ IVDEP Line 61  CDIR$ IVDEP
61     5  CONTINUE     5  CONTINUE
62    
63    
64        CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE., 1 )        CALL  filtreg( rot, jjm, llm, 2, 1, .FALSE.)
65    
66    
67        DO 10 l = 1, llm        DO 10 l = 1, llm
Legend:
Removed from v.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21