|
Last change
on this file since 2437 was
2362,
checked in by cmathe, 5 years ago
|
|
New working version of CO2 microphysics.
|
|
File size:
693 bytes
|
| Rev | Line | |
|---|
| [2362] | 1 | subroutine test_vmr(zq, zdq, timestep, ngrid, nlay, message) |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | integer, intent(in) :: ngrid, nlay |
|---|
| 5 | real, intent(in) :: zq(ngrid, nlay), zdq(ngrid, nlay), timestep |
|---|
| 6 | character(len=*), intent(in) :: message |
|---|
| 7 | integer :: i, j |
|---|
| 8 | real :: test |
|---|
| 9 | |
|---|
| 10 | do i = 1, nlay |
|---|
| 11 | do j = 1, ngrid |
|---|
| 12 | test = zq(j,i) + zdq(j,i)*timestep |
|---|
| 13 | if (test.gt.1.) then |
|---|
| 14 | write(*,*)zq(j,i), zdq(j,i), timestep |
|---|
| 15 | write(*,*)test, j, i |
|---|
| 16 | write(*,*)'Warning: mmr > 1' |
|---|
| 17 | ci call abort_physic('test_vmr', trim(message), 1) |
|---|
| 18 | end if |
|---|
| 19 | end do |
|---|
| 20 | end do |
|---|
| 21 | |
|---|
| 22 | end subroutine test_vmr |
|---|
Note: See
TracBrowser
for help on using the repository browser.
