trunk/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	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