34 |
use comvert, only: ap, bp |
use comvert, only: ap, bp |
35 |
use conf_gcm_m, only: day_step, iconser, idissip, iphysiq, iperiod, nday, & |
use conf_gcm_m, only: day_step, iconser, idissip, iphysiq, iperiod, nday, & |
36 |
offline, periodav |
offline, periodav |
37 |
use logic, only: ok_guide, apdiss, apphys, conser, forward, iflag_phys, & |
use logic, only: ok_guide, iflag_phys |
|
leapf, statcl |
|
38 |
use comgeom |
use comgeom |
39 |
use serre |
use serre |
40 |
use temps, only: itaufin, day_ini, dt |
use temps, only: itaufin, day_ini, dt |
48 |
use pressure_var, only: p3d |
use pressure_var, only: p3d |
49 |
|
|
50 |
integer nq |
integer nq |
51 |
REAL clesphy0(:) |
REAL, intent(in):: clesphy0(:) |
52 |
|
|
53 |
! Variables dynamiques: |
! Variables dynamiques: |
54 |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants |
119 |
|
|
120 |
logical:: dissip_conservative = .true. |
logical:: dissip_conservative = .true. |
121 |
LOGICAL:: prem = .true. |
LOGICAL:: prem = .true. |
122 |
|
logical forward, leapf, apphys, conser, apdiss |
123 |
|
|
124 |
!--------------------------------------------------- |
!--------------------------------------------------- |
125 |
|
|
167 |
! gestion des appels de la physique et des dissipations: |
! gestion des appels de la physique et des dissipations: |
168 |
|
|
169 |
apphys = .FALSE. |
apphys = .FALSE. |
|
statcl = .FALSE. |
|
170 |
conser = .FALSE. |
conser = .FALSE. |
171 |
apdiss = .FALSE. |
apdiss = .FALSE. |
172 |
|
|
195 |
|
|
196 |
! integrations dynamique et traceurs: |
! integrations dynamique et traceurs: |
197 |
CALL integrd(2, vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, & |
CALL integrd(2, vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, & |
198 |
dteta, dq, dp, vcov, ucov, teta, q, ps, masse, phis, finvmaold) |
dteta, dq, dp, vcov, ucov, teta, q, ps, masse, phis, & |
199 |
|
finvmaold, leapf) |
200 |
|
|
201 |
! calcul des tendances physiques: |
! calcul des tendances physiques: |
202 |
|
|