| 1 |
module cv3_prelim_m |
module cv30_prelim_m |
| 2 |
|
|
| 3 |
implicit none |
implicit none |
| 4 |
|
|
| 5 |
contains |
contains |
| 6 |
|
|
| 7 |
SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, th) |
SUBROUTINE cv30_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm, th) |
| 8 |
|
|
| 9 |
USE cv3_param_m, ONLY: nl |
USE cv30_param_m, ONLY: nl |
| 10 |
USE cvthermo, ONLY: cl, clmcpv, cpd, cpv, eps, lv0, rrd, rrv |
USE cvthermo, ONLY: cl, clmcpv, cpd, cpv, eps, lv0, rrd, rrv |
| 11 |
|
|
| 12 |
! Calculate arrays of geopotential, heat capacity and static energy |
! Calculate arrays of geopotential, heat capacity and static energy |
| 65 |
end do |
end do |
| 66 |
end do |
end do |
| 67 |
|
|
| 68 |
end SUBROUTINE cv3_prelim |
end SUBROUTINE cv30_prelim |
| 69 |
|
|
| 70 |
end module cv3_prelim_m |
end module cv30_prelim_m |
Parent Directory
| 
Revision Log
| 
Patch