| 14 |
! - here, nk(i) = minorig |
! - here, nk(i) = minorig |
| 15 |
! - icb defined differently (plcl compared with ph instead of p) |
! - icb defined differently (plcl compared with ph instead of p) |
| 16 |
|
|
| 17 |
use cv30_param_m, only: minorig, nl, nlm |
use cv30_param_m, only: minorig, nl |
| 18 |
|
|
| 19 |
integer, intent(in):: len, nd |
integer, intent(in):: len, nd |
| 20 |
real, intent(in):: t(len, nd) |
real, intent(in):: t(len, nd) |
| 73 |
! Calculate first level above lcl (= icb) |
! Calculate first level above lcl (= icb) |
| 74 |
|
|
| 75 |
do i = 1, len |
do i = 1, len |
| 76 |
icb(i) = nlm |
icb(i) = nl - 1 |
| 77 |
end do |
end do |
| 78 |
|
|
| 79 |
! La modification consiste \`a comparer plcl \`a ph et non \`a p: |
! La modification consiste \`a comparer plcl \`a ph et non \`a p: |
| 85 |
end do |
end do |
| 86 |
|
|
| 87 |
do i = 1, len |
do i = 1, len |
| 88 |
if ((icb(i) == nlm).and.(iflag(i) == 0)) iflag(i) = 9 |
if ((icb(i) == nl - 1).and.(iflag(i) == 0)) iflag(i) = 9 |
| 89 |
end do |
end do |
| 90 |
|
|
| 91 |
do i = 1, len |
do i = 1, len |
Parent Directory
| 
Revision Log
| 
Patch