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

Diff of /trunk/filtrez/inifilr.f

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

revision 169 by guez, Mon Sep 14 17:13:16 2015 UTC revision 175 by guez, Fri Feb 5 16:02:34 2016 UTC
# Line 72  contains Line 72  contains
72    
73      rlamda = iim / pi / colat0 * grossismx / sqrt(- eignvl(2: iim))      rlamda = iim / pi / colat0 * grossismx / sqrt(- eignvl(2: iim))
74      print *, "1 / rlamda(iim) = ", 1. / rlamda(iim)      print *, "1 / rlamda(iim) = ", 1. / rlamda(iim)
   
75      ! This is demonstrated in the notes but just to be sure:      ! This is demonstrated in the notes but just to be sure:
76      call assert(rlamda(iim) * colat0 >= 1. - epsilon(0.), &      call assert(rlamda(iim) * colat0 >= 1. - 2. * epsilon(0.), &
77           "inifilr rlamda(iim) * colat0")           "inifilr rlamda(iim) * colat0")
78    
79      call new_unit(unit)      call new_unit(unit)
Legend:
Removed from v.169  
changed lines
  Added in v.175
  ViewVC Help
Powered by ViewVC 1.1.21