| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch