--- trunk/libf/dyn3d/logic.f90 2008/07/21 16:05:07 12 +++ trunk/libf/dyn3d/logic.f90 2008/10/15 16:19:57 20 @@ -13,8 +13,7 @@ logical:: ysinus = .TRUE. ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.) - logical:: ok_guide= .FALSE. - ! Help = Guidage + logical:: ok_guide= .FALSE. ! guidage INTEGER:: iflag_phys = 1 ! contrôle l'appel ŕ la physique : @@ -30,8 +29,6 @@ !------------------------------------ - print *, "Call sequence information: read_logic" - print *, "Enter namelist 'logic_nml'." read(unit=*, nml=logic_nml) write(unit=*, nml=logic_nml)