94 |
interbar=.FALSE.) |
interbar=.FALSE.) |
95 |
|
|
96 |
print *, 'Compute all the parameters needed for the gravity wave drag code' |
print *, 'Compute all the parameters needed for the gravity wave drag code' |
|
|
|
97 |
CALL grid_noro(lon_rad, lat_rad, relief, rlonv, rlatu, phis, zmea_2d, & |
CALL grid_noro(lon_rad, lat_rad, relief, rlonv, rlatu, phis, zmea_2d, & |
98 |
zstd_2d, zsig_2d, zgam_2d, zthe_2d, zpic_2d, zval_2d, mask) |
zstd_2d, zsig_2d, zgam_2d, zthe_2d, zpic_2d, zval_2d, mask) |
99 |
phis(:, :) = phis(:, :) * 9.81 |
phis(:, :) = phis(:, :) * 9.81 |