18 |
USE comconst, ONLY: daysec, dtphys, dtvr |
USE comconst, ONLY: daysec, dtphys, dtvr |
19 |
USE comgeom, ONLY: aire_2d, apoln, apols |
USE comgeom, ONLY: aire_2d, apoln, apols |
20 |
USE comvert, ONLY: ap, bp |
USE comvert, ONLY: ap, bp |
21 |
USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline |
USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline, & |
22 |
|
iflag_phys, ok_guide |
23 |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
24 |
use dissip_m, only: dissip |
use dissip_m, only: dissip |
25 |
USE dynetat0_m, ONLY: day_ini |
USE dynetat0_m, ONLY: day_ini |
30 |
USE guide_m, ONLY: guide |
USE guide_m, ONLY: guide |
31 |
use inidissip_m, only: idissip |
use inidissip_m, only: idissip |
32 |
use integrd_m, only: integrd |
use integrd_m, only: integrd |
|
USE logic, ONLY: iflag_phys, ok_guide |
|
33 |
use nr_util, only: assert |
use nr_util, only: assert |
34 |
USE pressure_var, ONLY: p3d |
USE pressure_var, ONLY: p3d |
35 |
USE temps, ONLY: itau_dyn |
USE temps, ONLY: itau_dyn |
227 |
CALL writedynav(nqmx, itau + 1, vcov, ucov, teta, pk, phi, q, & |
CALL writedynav(nqmx, itau + 1, vcov, ucov, teta, pk, phi, q, & |
228 |
masse, ps, phis) |
masse, ps, phis) |
229 |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
230 |
q(:, :, :, 1), dt_app = dtvr * iperiod) |
q(:, :, :, 1)) |
231 |
ENDIF |
ENDIF |
232 |
end do time_integration |
end do time_integration |
233 |
|
|