source:
LMDZ5/branches/Cold_pool_death/libf/phylmd/Cold_pool_death/cold_pool_death_condition_m.F90
@
3899
Last change on this file since 3899 was 3899, checked in by , 3 years ago | |
---|---|
File size: 435 bytes |
Line | |
---|---|
1 | module cold_pool_death_condition_m |
2 | |
3 | implicit none |
4 | |
5 | real, parameter:: delta_death = - 0.1 ! in K |
6 | |
7 | contains |
8 | |
9 | logical function cold_pool_death_condition(y) |
10 | |
11 | real, intent(in):: y(:) ! (5) |
12 | ! (/theta_v_cp, z_cp, r, av_thvu, h/) |
13 | |
14 | !-------------------------------------------------- |
15 | |
16 | cold_pool_death_condition = y(1) - y(4) >= delta_death |
17 | |
18 | end function cold_pool_death_condition |
19 | |
20 | end module cold_pool_death_condition_m |
Note: See TracBrowser
for help on using the repository browser.