Parent Directory
| 
Revision Log
| 
Patch
| trunk/Sources/phylmd/diagcld1.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC | trunk/phylmd/diagcld1.f 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 |