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 cv_thermo_m, 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 |
13 |
|
|
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 |