libf/phylmd/comfisrtilp.f90

module comfisrtilp

  ! From phylmd/fisrtilp.h,v 1.1.1.1 2004/05/19 12:53:09

  implicit none

  REAL     cld_lc_lsc     ! 2.6e-4
  real cld_lc_con    ! 2.6e-4
  real cld_tau_lsc   ! 3600.
  real cld_tau_con   ! 3600.
  real ffallv_lsc    ! 1.
  real ffallv_con    ! 1.
  real coef_eva      ! 2.e-5
  logical reevap_ice    ! F
  integer iflag_pdf     ! 0

end module comfisrtilp
1	guez	3	module comfisrtilp
2
3			! From phylmd/fisrtilp.h,v 1.1.1.1 2004/05/19 12:53:09
4
5			implicit none
6
7			REAL cld_lc_lsc ! 2.6e-4
8			real cld_lc_con ! 2.6e-4
9			real cld_tau_lsc ! 3600.
10			real cld_tau_con ! 3600.
11			real ffallv_lsc ! 1.
12			real ffallv_con ! 1.
13			real coef_eva ! 2.e-5
14			logical reevap_ice ! F
15			integer iflag_pdf ! 0
16
17			end module comfisrtilp