/[lmdze]/trunk/dyn3d/Guide/tau2alpha.f
ViewVC logotype

Diff of /trunk/dyn3d/Guide/tau2alpha.f

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

trunk/libf/dyn3d/tau2alpha.f90 revision 37 by guez, Tue Dec 21 15:45:48 2010 UTC trunk/dyn3d/tau2alpha.f revision 102 by guez, Tue Jul 15 13:43:24 2014 UTC
# Line 1  Line 1 
1  module tau2alpha_m  module tau2alpha_m
2    
3        USE paramet_m, ONLY : iip1, jjp1
4        USE dimens_m, ONLY : jjm
5    
6      IMPLICIT NONE      IMPLICIT NONE
7    
8      REAL lat_min_guide, lat_max_guide      private iip1, jjp1, jjm
9    
10        REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)
11    
12  contains  contains
13    
14    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)
     !=======================================================================  
15    
     USE dimens_m, ONLY : iim, jjm  
     USE paramet_m, ONLY : iip1, jjp1  
     USE comconst, ONLY : pi  
16      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
17        use conf_guide_m, only: lat_min_guide, lat_max_guide
18        use dump2d_m, only: dump2d
19        USE dimens_m, ONLY : iim
20        USE nr_util, ONLY : pi
21      USE serre, ONLY : clat, clon, grossismx, grossismy      USE serre, ONLY : clat, clon, grossismx, grossismy
22    
23      !   arguments :      !   arguments :
24      INTEGER type      INTEGER type
25      INTEGER pim, pjm      INTEGER pim, pjm
26      REAL factt, taumin, taumax      REAL, intent(in):: factt, taumin, taumax
27      REAL dxdy_, alpha(pim, pjm)      REAL dxdy_, alpha(pim, pjm)
28      REAL dxdy_min, dxdy_max      REAL dxdy_min, dxdy_max
29    
# Line 32  contains Line 37  contains
37      DATA first/ .TRUE./      DATA first/ .TRUE./
38    
39      REAL zdx(iip1, jjp1), zdy(iip1, jjp1)      REAL zdx(iip1, jjp1), zdy(iip1, jjp1)
   
40      REAL zlat      REAL zlat
41      REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)  
42      COMMON /comdxdy/dxdys, dxdyu, dxdyv      !------------------------------------------------------------
43    
44      IF (first) THEN      IF (first) THEN
45         DO j = 2, jjm         DO j = 2, jjm
# Line 68  contains Line 72  contains
72         END DO         END DO
73         DO j = 1, jjm         DO j = 1, jjm
74            DO i = 1, iip1            DO i = 1, iip1
75               dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i+1, j))               dxdyv(i, j) = 0.5*(dxdys(i, j)+dxdys(i, j + 1))
76            END DO            END DO
77         END DO         END DO
78    
Legend:
Removed from v.37  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.21