/[lmdze]/trunk/phylmd/comfisrtilp.f90
ViewVC logotype

Contents of /trunk/phylmd/comfisrtilp.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 328 - (show annotations)
Thu Jun 13 14:40:06 2019 UTC (4 years, 11 months ago) by guez
File size: 379 byte(s)
Change all `.f` suffixes to `.f90`. (The opposite was done in revision
82.)  Because of change of philosopy in GNUmakefile: we already had a
rewritten rule for `.f`, so it does not make the makefile longer to
replace it by a rule for `.f90`. And it spares us options of
makedepf90 and of the compiler. Also we prepare the way for a simpler
`CMakeLists.txt`.

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

  ViewVC Help
Powered by ViewVC 1.1.21