20 |
! The variable is regridded by averaging. |
! The variable is regridded by averaging. |
21 |
|
|
22 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
23 |
use nrutil, only: assert |
use numer_rec, only: assert |
24 |
use regr1_step_av_m, only: regr1_step_av |
use regr1_step_av_m, only: regr1_step_av |
25 |
use pressure_var, only: p3d |
use pressure_var, only: p3d |
26 |
|
|
93 |
! The variable is regridded by interpolation. |
! The variable is regridded by interpolation. |
94 |
|
|
95 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
96 |
use nrutil, only: assert |
use numer_rec, only: assert |
97 |
use regr1_lint_m, only: regr1_lint |
use regr1_lint_m, only: regr1_lint |
98 |
use pressure_var, only: pls |
use pressure_var, only: pls |
99 |
|
|