/[lmdze]/trunk/libf/dyn3d/logic.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/logic.f90

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 13  module logic Line 13  module logic
13    logical:: ysinus = .TRUE.    logical:: ysinus = .TRUE.
14    ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)    ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
15    
16    logical:: ok_guide= .FALSE.    logical:: ok_guide= .FALSE. ! guidage
   ! Help = Guidage  
17    
18    INTEGER:: iflag_phys = 1    INTEGER:: iflag_phys = 1
19    ! contrôle l'appel ŕ la physique :    ! contrôle l'appel ŕ la physique :
# Line 30  contains Line 29  contains
29    
30      !------------------------------------      !------------------------------------
31    
     print *, "Call sequence information: read_logic"  
   
32      print *, "Enter namelist 'logic_nml'."      print *, "Enter namelist 'logic_nml'."
33      read(unit=*, nml=logic_nml)      read(unit=*, nml=logic_nml)
34      write(unit=*, nml=logic_nml)      write(unit=*, nml=logic_nml)
Legend:
Removed from v.12  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21