| 17 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
| 18 |
use comconst, only: kappa, cpp |
use comconst, only: kappa, cpp |
| 19 |
use disvert_m, only: ap, bp, preff, presnivs, s |
use disvert_m, only: ap, bp, preff, presnivs, s |
| 20 |
use dimens_m, only: llm |
use dimensions, only: llm |
| 21 |
use exner_hyb_m, only: exner_hyb |
use exner_hyb_m, only: exner_hyb |
| 22 |
use jumble, only: new_unit |
use jumble, only: new_unit |
| 23 |
|
|
| 87 |
end if |
end if |
| 88 |
end do |
end do |
| 89 |
end do |
end do |
| 90 |
call abort_gcm("test_disvert", "bad order of pressure values", 1) |
call abort_gcm("test_disvert", "bad order of pressure values") |
| 91 |
end if |
end if |
| 92 |
|
|
| 93 |
1000 format (3(a, g10.4, a, i0)) |
1000 format (3(a, g11.4, a, i0)) |
| 94 |
|
|
| 95 |
end subroutine test_disvert |
end subroutine test_disvert |
| 96 |
|
|
Parent Directory
| 
Revision Log
| 
Patch