Parent Directory | Revision Log | Patch
revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC | revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop, & | SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop, & |
2 | diafra,dialiq) | diafra,dialiq) |
3 | use dimens_m | use dimensions |
4 | use dimphy | use dimphy |
5 | use SUPHEC_M | use SUPHEC_M |
6 | IMPLICIT none | IMPLICIT none |
# | Line 33 | Line 33 |
33 | REAL CCFCT, CCSCAL | REAL CCFCT, CCSCAL |
34 | PARAMETER (CCFCT=0.400) | PARAMETER (CCFCT=0.400) |
35 | PARAMETER (CCSCAL=1.0E+11) | PARAMETER (CCSCAL=1.0E+11) |
36 | REAL CETAHB, CETAMB | REAL CETAHB |
37 | PARAMETER (CETAHB=0.45, CETAMB=0.80) | PARAMETER (CETAHB=0.45) |
38 | REAL CCLWMR | REAL CCLWMR |
39 | PARAMETER (CCLWMR=1.E-04) | PARAMETER (CCLWMR=1.E-04) |
40 | REAL ZEPSCR | REAL ZEPSCR |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |