/[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 83 by guez, Thu Mar 6 15:12:00 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    
16      USE dimens_m, ONLY : iim, jjm      use conf_guide_m, only: lat_min_guide, lat_max_guide
17      USE paramet_m, ONLY : iip1, jjp1      USE dimens_m, ONLY : iim
18      USE comconst, ONLY : pi      USE nr_util, ONLY : pi
19      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv      USE comgeom, ONLY : cu_2d, cv_2d, rlatu, rlatv
20      USE serre, ONLY : clat, clon, grossismx, grossismy      USE serre, ONLY : clat, clon, grossismx, grossismy
21    
22      !   arguments :      !   arguments :
23      INTEGER type      INTEGER type
24      INTEGER pim, pjm      INTEGER pim, pjm
25      REAL factt, taumin, taumax      REAL, intent(in):: factt, taumin, taumax
26      REAL dxdy_, alpha(pim, pjm)      REAL dxdy_, alpha(pim, pjm)
27      REAL dxdy_min, dxdy_max      REAL dxdy_min, dxdy_max
28    
# Line 32  contains Line 36  contains
36      DATA first/ .TRUE./      DATA first/ .TRUE./
37    
38      REAL zdx(iip1, jjp1), zdy(iip1, jjp1)      REAL zdx(iip1, jjp1), zdy(iip1, jjp1)
   
39      REAL zlat      REAL zlat
40      REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)  
41      COMMON /comdxdy/dxdys, dxdyu, dxdyv      !------------------------------------------------------------
42    
43      IF (first) THEN      IF (first) THEN
44         DO j = 2, jjm         DO j = 2, jjm
Legend:
Removed from v.37  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.21