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

Diff of /trunk/dyn3d/principal_cshift.f

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

revision 124 by guez, Thu Feb 5 15:19:37 2015 UTC revision 125 by guez, Fri Feb 6 15:00:28 2015 UTC
# Line 6  contains Line 6  contains
6    
7    subroutine principal_cshift(is2, xlon, xprimm)    subroutine principal_cshift(is2, xlon, xprimm)
8    
9        ! Add or subtract 2 pi so that xlon is near [-pi, pi], then cshift
10        ! so that xlon is in ascending order. Make the same cshift on
11        ! xprimm.
12    
13      USE dimens_m, ONLY: iim      USE dimens_m, ONLY: iim
14      use nr_util, only: twopi      use nr_util, only: twopi
15      use serre, only: clon      use serre, only: clon
Legend:
Removed from v.124  
changed lines
  Added in v.125
  ViewVC Help
Powered by ViewVC 1.1.21