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 |
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 |