49 |
use regr_pr_o3_m, only: regr_pr_o3 |
use regr_pr_o3_m, only: regr_pr_o3 |
50 |
use phyredem_m, only: phyredem |
use phyredem_m, only: phyredem |
51 |
use caldyn0_m, only: caldyn0 |
use caldyn0_m, only: caldyn0 |
52 |
|
use inigeom_m, only: inigeom |
53 |
|
|
54 |
! Variables local to the procedure: |
! Variables local to the procedure: |
55 |
|
|
306 |
CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol) |
CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol) |
307 |
|
|
308 |
! Ecriture état initial physique: |
! Ecriture état initial physique: |
|
print *, 'dtvr = ', dtvr |
|
309 |
print *, "iphysiq = ", iphysiq |
print *, "iphysiq = ", iphysiq |
310 |
phystep = dtvr * REAL(iphysiq) |
phystep = dtvr * REAL(iphysiq) |
311 |
print *, 'phystep = ', phystep |
print *, 'phystep = ', phystep |