[6610] | 1 | |
---|
| 2 | #include <inca_define.h> |
---|
| 3 | subroutine SETRXT( rate, temp ) |
---|
| 4 | ! Stacy Walters, NCAR, 1998. |
---|
| 5 | |
---|
| 6 | use INCA_dim |
---|
| 7 | implicit none |
---|
| 8 | |
---|
| 9 | !------------------------------------------------------- |
---|
| 10 | ! ... Dummy args |
---|
| 11 | !------------------------------------------------------- |
---|
| 12 | real, intent(out) :: rate(PLON,PLEV,RXNCNT) |
---|
| 13 | real, intent(in) :: temp(PLON,PLEV) |
---|
| 14 | |
---|
| 15 | real :: itemp(PLON,PLEV) |
---|
| 16 | |
---|
| 17 | rate(:PLON,:,4) = 2.100e-06 |
---|
| 18 | rate(:PLON,:,6) = 1.514e-07 |
---|
| 19 | rate(:PLON,:,7) = 6.7e-11 |
---|
| 20 | rate(:PLON,:,8) = 4.4e-11 |
---|
| 21 | rate(:PLON,:,10) = 2.25e-10 |
---|
| 22 | rate(:PLON,:,11) = 3.75e-11 |
---|
| 23 | rate(:PLON,:,12) = 4.98e-11 |
---|
| 24 | itemp(:PLON,:) = 1. / temp(:PLON,:) |
---|
| 25 | rate(:PLON,:,5) = 1.800e-12 * EXP( -1550. * itemp(:PLON,:) ) |
---|
| 26 | rate(:PLON,:,9) = 2.45e-12 * EXP( -1775. * itemp(:PLON,:) ) |
---|
| 27 | |
---|
| 28 | end subroutine SETRXT |
---|