145 |
! "physiq". |
! "physiq". |
146 |
|
|
147 |
REAL, save:: radsol(klon) |
REAL, save:: radsol(klon) |
148 |
! bilan radiatif net au sol (W/m2), positif vers le bas |
! Bilan radiatif net au sol (W/m2), positif vers le bas. Must be |
149 |
|
! saved because radlwsw is not called at every time step. |
150 |
|
|
151 |
REAL, save:: ftsol(klon, nbsrf) ! skin temperature of surface fraction, in K |
REAL, save:: ftsol(klon, nbsrf) ! skin temperature of surface fraction, in K |
152 |
|
|
915 |
|
|
916 |
! diag. bilKP |
! diag. bilKP |
917 |
|
|
918 |
CALL transp_lay(paprs, t_seri, q_seri, u_seri, v_seri, zphi, & |
CALL transp_lay(paprs, t_seri, q_seri, u_seri, v_seri, zphi, ve_lay, & |
919 |
ve_lay, vq_lay, ue_lay, uq_lay) |
vq_lay, ue_lay, uq_lay) |
920 |
|
|
921 |
! Accumuler les variables a stocker dans les fichiers histoire: |
! Accumuler les variables a stocker dans les fichiers histoire: |
922 |
|
|