Parent Directory | Revision Log | 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.)) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |