/[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 11 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 6  module logic Line 6  module logic
6    ! Help = Choix du schema d'integration temporel.    ! Help = Choix du schema d'integration temporel.
7    ! y = pure Matsuno sinon c'est du Matsuno-leapfrog    ! y = pure Matsuno sinon c'est du Matsuno-leapfrog
8    
9    LOGICAL, save:: forward, leapf, apphys, statcl, conser    logical:: fxyhypb = .TRUE.
10    logical, save:: apdiss, apdelq, saison    ! (fonction f(y) à dérivée tangente hyperbolique, sinon à dérivée
11      ! sinusoïdale)
12    
13    logical, save:: fxyhypb    logical:: ysinus = .TRUE.
14    ! fonction f(y) hyperbolique, sinon sinusoïdale    ! (Fonction f(y) avec y = Sin(latit.) si = .true. sinon y = latit.)
   
   logical, save:: ysinus  
15    
16    logical:: ok_guide= .FALSE.    logical:: ok_guide= .FALSE.
17    ! Help = Guidage    ! Help = Guidage
# Line 23  module logic Line 22  module logic
22    ! 1 : physique normale (appel à phylmd, phymars...) (default)    ! 1 : physique normale (appel à phylmd, phymars...) (default)
23    ! 2 : rappel Newtonien pour la température + friction au sol    ! 2 : rappel Newtonien pour la température + friction au sol
24    
25    contains
26    
27      subroutine read_logic
28    
29        namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys
30    
31        !------------------------------------
32    
33        print *, "Call sequence information: read_logic"
34    
35        print *, "Enter namelist 'logic_nml'."
36        read(unit=*, nml=logic_nml)
37        write(unit=*, nml=logic_nml)
38    
39      end subroutine read_logic
40    
41  end module logic  end module logic
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21