/[lmdze]/trunk/Sources/dyn3d/pentes_ini.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/pentes_ini.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 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 3  Line 3 
3  ! 12:53:07 lmdzadmin Exp $  ! 12:53:07 lmdzadmin Exp $
4    
5  SUBROUTINE pentes_ini(q, w, masse, pbaru, pbarv, mode)  SUBROUTINE pentes_ini(q, w, masse, pbaru, pbarv, mode)
6    USE dimens_m  
   USE paramet_m  
7    USE comconst    USE comconst
8      USE dynetat0_m, only: rlonv, rlonu
9      USE dimens_m
10    USE disvert_m    USE disvert_m
   USE comgeom  
11    USE nr_util, ONLY: pi    USE nr_util, ONLY: pi
12      USE paramet_m
13    
14    IMPLICIT NONE    IMPLICIT NONE
15    
16    ! =======================================================================    ! =======================================================================
Legend:
Removed from v.134  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21