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