/[lmdze]/trunk/filtrez/inifgn.f
ViewVC logotype

Diff of /trunk/filtrez/inifgn.f

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

revision 113 by guez, Thu Sep 18 19:56:46 2014 UTC revision 121 by guez, Wed Jan 28 16:10:02 2015 UTC
# Line 18  contains Line 18  contains
18    
19      ! Local:      ! Local:
20      REAL vec(iim, iim), vec1(iim, iim)      REAL vec(iim, iim), vec1(iim, iim)
     REAL dlonu(iim), dlonv(iim)  
21      REAL du(iim)      REAL du(iim)
22      real d(iim)      real d(iim)
23      REAL pi      REAL pi
# Line 32  contains Line 31  contains
31      pi = 2.*asin(1.)      pi = 2.*asin(1.)
32    
33      DO i = 1, iim      DO i = 1, iim
34         dlonu(i) = xprimu(i)         sddv(i) = sqrt(xprimv(i))
35         dlonv(i) = xprimv(i)         sddu(i) = sqrt(xprimu(i))
     END DO  
   
     DO i = 1, iim  
        sddv(i) = sqrt(dlonv(i))  
        sddu(i) = sqrt(dlonu(i))  
36         unsddu(i) = 1./sddu(i)         unsddu(i) = 1./sddu(i)
37         unsddv(i) = 1./sddv(i)         unsddv(i) = 1./sddv(i)
38      END DO      END DO
Legend:
Removed from v.113  
changed lines
  Added in v.121
  ViewVC Help
Powered by ViewVC 1.1.21