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

Diff of /trunk/dyn3d/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.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 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
18      USE paramet_m, ONLY : iip1, jjp1      USE nr_util, ONLY : pi
     USE comconst, 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.76
  ViewVC Help
Powered by ViewVC 1.1.21