4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE calfis(lafin, rdayvrai, heure, pucov, pvcov, pteta, q, & |
SUBROUTINE calfis(rdayvrai, heure, pucov, pvcov, pteta, q, & |
8 |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
9 |
pdufi, pdvfi, pdhfi, pdqfi, pdpsfi) |
pdufi, pdvfi, pdhfi, pdqfi, pdpsfi, lafin) |
10 |
|
|
11 |
! From dyn3d/calfis.F, version 1.3 2005/05/25 13:10:09 |
! From dyn3d/calfis.F, version 1.3 2005/05/25 13:10:09 |
12 |
! Authors : P. Le Van, F. Hourdin |
! Authors : P. Le Van, F. Hourdin |
49 |
! pdtrad radiative tendencies \ both input |
! pdtrad radiative tendencies \ both input |
50 |
! pfluxrad radiative fluxes / and output |
! pfluxrad radiative fluxes / and output |
51 |
|
|
52 |
use comconst, only: kappa, cpp, dtphys, g, pi |
use comconst, only: kappa, cpp, dtphys, g |
53 |
use comvert, only: preff |
use comvert, only: preff |
54 |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
55 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
56 |
use dimphy, only: klon |
use dimphy, only: klon |
57 |
use grid_change, only: dyn_phy, gr_fi_dyn |
use grid_change, only: dyn_phy, gr_fi_dyn |
58 |
use iniadvtrac_m, only: niadv |
use iniadvtrac_m, only: niadv |
59 |
|
use nr_util, only: pi |
60 |
use physiq_m, only: physiq |
use physiq_m, only: physiq |
61 |
use pressure_var, only: p3d, pls |
use pressure_var, only: p3d, pls |
62 |
|
|