7 |
SUBROUTINE leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0) |
SUBROUTINE leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0) |
8 |
|
|
9 |
! From dyn3d/leapfrog.F, version 1.6 2005/04/13 08:58:34 |
! From dyn3d/leapfrog.F, version 1.6 2005/04/13 08:58:34 |
10 |
! Auteurs : P. Le Van, L. Fairhead, F. Hourdin |
! Auteurs: P. Le Van, L. Fairhead, F. Hourdin |
11 |
|
|
12 |
USE dimens_m, ONLY : iim, llm, nqmx |
USE calfis_m, ONLY: calfis |
13 |
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1 |
USE com_io_dyn, ONLY: histaveid |
14 |
USE comconst, ONLY : daysec, dtphys, dtvr |
USE comconst, ONLY: daysec, dtphys, dtvr |
15 |
USE comvert, ONLY : ap, bp |
USE comgeom, ONLY: aire, apoln, apols |
16 |
USE conf_gcm_m, ONLY : day_step, iconser, idissip, iperiod, iphysiq, & |
USE comvert, ONLY: ap, bp |
17 |
|
USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, & |
18 |
nday, offline, periodav |
nday, offline, periodav |
19 |
USE logic, ONLY : iflag_phys, ok_guide |
USE dimens_m, ONLY: iim, llm, nqmx |
20 |
USE comgeom, ONLY : aire, apoln, apols |
USE dynetat0_m, ONLY: day_ini |
21 |
USE temps, ONLY : dt, itaufin |
USE exner_hyb_m, ONLY: exner_hyb |
22 |
USE dynetat0_m, ONLY : day_ini |
USE guide_m, ONLY: guide |
23 |
USE iniprint, ONLY : prt_level |
use inidissip_m, only: idissip |
24 |
USE com_io_dyn, ONLY : histaveid |
USE logic, ONLY: iflag_phys, ok_guide |
25 |
USE calfis_m, ONLY : calfis |
USE paramet_m, ONLY: iip1, ip1jm, ip1jmp1, jjp1 |
26 |
USE exner_hyb_m, ONLY : exner_hyb |
USE pression_m, ONLY: pression |
27 |
USE guide_m, ONLY : guide |
USE pressure_var, ONLY: p3d |
28 |
USE pression_m, ONLY : pression |
USE temps, ONLY: dt, itaufin |
|
USE pressure_var, ONLY : p3d |
|
29 |
|
|
30 |
! Variables dynamiques: |
! Variables dynamiques: |
31 |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants |
75 |
INTEGER iday ! jour julien |
INTEGER iday ! jour julien |
76 |
REAL time ! time of day, as a fraction of day length |
REAL time ! time of day, as a fraction of day length |
77 |
real finvmaold(ip1jmp1, llm) |
real finvmaold(ip1jmp1, llm) |
78 |
LOGICAL :: lafin=.false. |
LOGICAL:: lafin=.false. |
79 |
INTEGER ij, l |
INTEGER ij, l |
80 |
|
|
81 |
REAL rdayvrai, rdaym_ini |
REAL rdayvrai, rdaym_ini |