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