/[lmdze]/trunk/libf/dyn3d/tau2alpha.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/tau2alpha.f90

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

revision 43 by guez, Tue Jan 25 15:11:05 2011 UTC revision 44 by guez, Wed Apr 13 12:29:18 2011 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        private iip1, jjp1, jjm
9    
10      REAL lat_min_guide, lat_max_guide      REAL lat_min_guide, lat_max_guide
11        REAL dxdys(iip1, jjp1), dxdyu(iip1, jjp1), dxdyv(iip1, jjm)
12    
13  contains  contains
14    
15    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)    SUBROUTINE tau2alpha(type, pim, pjm, factt, taumin, taumax, alpha)
16    
17      USE dimens_m, ONLY : iim, jjm      USE dimens_m, ONLY : iim
     USE paramet_m, ONLY : iip1, jjp1  
18      USE nr_util, 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
# Line 17  contains Line 22  contains
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 31  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.43  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.21