46 |
use q_sat_m, only: q_sat |
use q_sat_m, only: q_sat |
47 |
use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz |
use regr_lat_time_coefoz_m, only: regr_lat_time_coefoz |
48 |
use regr_pr_o3_m, only: regr_pr_o3 |
use regr_pr_o3_m, only: regr_pr_o3 |
|
use serre, only: alphax |
|
49 |
use startdyn, only: start_init_dyn |
use startdyn, only: start_init_dyn |
50 |
USE start_init_orog_m, only: start_init_orog, mask |
USE start_init_orog_m, only: start_init_orog, mask |
51 |
use start_init_phys_m, only: start_init_phys |
use start_init_phys_m, only: start_init_phys |
295 |
! Calcul interm\'ediaire : |
! Calcul interm\'ediaire : |
296 |
CALL massdair(p3d, masse) |
CALL massdair(p3d, masse) |
297 |
|
|
|
print *, 'ALPHAX = ', alphax |
|
|
|
|
298 |
forall (l = 1:llm) |
forall (l = 1:llm) |
299 |
masse(:, 1, l) = SUM(aire_2d(:iim, 1) * masse(:iim, 1, l)) / apoln |
masse(:, 1, l) = SUM(aire_2d(:iim, 1) * masse(:iim, 1, l)) / apoln |
300 |
masse(:, jjm + 1, l) = & |
masse(:, jjm + 1, l) = & |