/[lmdze]/trunk/phylmd/YOMCST.f
ViewVC logotype

Diff of /trunk/phylmd/YOMCST.f

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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 125 by guez, Fri Feb 6 15:00:28 2015 UTC
# Line 4  module YOMCST Line 4  module YOMCST
4    
5    ! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33    ! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33
6    
7    ! A1.1.bis Constantes concernant l'orbite de la Terre:    ! A1.1.bis Constantes concernant l'orbite de la Terre
8    REAL R_ecc ! excentricité    ! Default values from AMIP II
   real R_peri ! équinoxe  
   real R_incl ! inclinaison  
9    
10    save    REAL:: R_ecc = 0.016715 ! excentricité
11      real:: R_peri = 102.7 ! équinoxe
12      real:: R_incl = 23.441 ! inclinaison
13    
14    contains
15    
16      subroutine read_YOMCST
17    
18        use unit_nml_m, only: unit_nml
19    
20        namelist /YOMCST_nml/ R_ecc, R_peri, R_incl
21    
22        !------------------------------------
23    
24        print *, "Enter namelist 'YOMCST_nml'."
25        read(unit=*, nml=YOMCST_nml)
26        write(unit_nml, nml=YOMCST_nml)
27    
28      end subroutine read_YOMCST
29    
30  end module YOMCST  end module YOMCST
Legend:
Removed from v.82  
changed lines
  Added in v.125
  ViewVC Help
Powered by ViewVC 1.1.21