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 |
|
use inidissip_m, only: inidissip |
54 |
|
|
55 |
! Variables local to the procedure: |
! Variables local to the procedure: |
56 |
|
|
292 |
|
|
293 |
! Initialisation pour traceurs: |
! Initialisation pour traceurs: |
294 |
call iniadvtrac |
call iniadvtrac |
|
! Ecriture: |
|
295 |
CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & |
CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & |
296 |
tetagrot, tetatemp) |
tetagrot, tetatemp) |
297 |
itau_dyn = 0 |
itau_dyn = 0 |
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 |