/[lmdze]/trunk/phylmd/orbite.f
ViewVC logotype

Diff of /trunk/phylmd/orbite.f

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

revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 110  CONTAINS Line 110  CONTAINS
110    
111      !----------------------------------------------------------------------      !----------------------------------------------------------------------
112    
113      call assert((/size(pmu0), size(frac)/) == klon, "zenang")      if (present(frac)) call assert((/size(pmu0), size(frac)/) == klon, &
114             "zenang")
115        
116      deux_pi = 2*pi      deux_pi = 2*pi
117    
118      lat_sun = asin(sin(longi * pi / 180.) * sin(r_incl * pi / 180.))      lat_sun = asin(sin(longi * pi / 180.) * sin(r_incl * pi / 180.))
Legend:
Removed from v.22  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21