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

Diff of /trunk/phylmd/YOMCST.f

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

trunk/libf/phylmd/YOMCST.f90 revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC trunk/Sources/phylmd/YOMCST.f revision 134 by guez, Wed Apr 29 15:47:56 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.0 Fundamental constants    ! A1.1.bis Constantes concernant l'orbite de la Terre
8    REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO    ! Default values from AMIP II
   ! A1.1 Astronomical constants  
   REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA  
   
   ! A1.1.bis Constantes concernant l'orbite de la Terre:  
   REAL R_ecc ! excentricité  
   real R_peri ! équinoxe  
   real R_incl ! inclinaison  
   
   ! A1.2 Geoide  
   REAL RA,RG,R1SA  
   ! A1.3 Radiation  
   !     REAL RSIGMA,RI0  
   REAL RSIGMA  
   ! A1.4 Thermodynamic gas phase  
   REAL R,RMD,RMO3,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV  
   REAL RKAPPA,RETV  
   ! A1.5,6 Thermodynamic liquid,solid phases  
   REAL RCW,RCS  
   ! A1.7 Thermodynamic transition of phase  
   REAL RLVTT,RLSTT,RLMLT,RTT,RATM  
   ! A1.8 Curve of saturation  
   REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS  
   REAL RALPD,RBETD,RGAMD  
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.22  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21