/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 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.)
15    
16    logical, save:: ysinus    logical:: ok_guide= .FALSE. ! guidage
   
   logical:: ok_guide= .FALSE.  
   ! 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 23  module logic Line 21  module logic
21    ! 1 : physique normale (appel à phylmd, phymars...) (default)    ! 1 : physique normale (appel à phylmd, phymars...) (default)
22    ! 2 : rappel Newtonien pour la température + friction au sol    ! 2 : rappel Newtonien pour la température + friction au sol
23    
24    contains
25    
26      subroutine read_logic
27    
28        namelist /logic_nml/ purmats, fxyhypb, ysinus, ok_guide, iflag_phys
29    
30        !------------------------------------
31    
32        print *, "Enter namelist 'logic_nml'."
33        read(unit=*, nml=logic_nml)
34        write(unit=*, nml=logic_nml)
35    
36      end subroutine read_logic
37    
38  end module logic  end module logic
Legend:
Removed from v.3  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21