23 |
USE comconst, ONLY: dtvr |
USE comconst, ONLY: dtvr |
24 |
use comdissnew, only: nitergdiv, nitergrot, niterh, tetagdiv, tetagrot, & |
use comdissnew, only: nitergdiv, nitergrot, niterh, tetagdiv, tetagrot, & |
25 |
tetatemp |
tetatemp |
26 |
USE comvert, ONLY: preff, presnivs |
USE disvert_m, ONLY: preff, presnivs |
27 |
USE conf_gcm_m, ONLY: iperiod |
USE conf_gcm_m, ONLY: iperiod |
28 |
USE dimens_m, ONLY: iim, jjm |
USE dimens_m, ONLY: iim, jjm |
29 |
use divgrad2_m, only: divgrad2 |
use divgrad2_m, only: divgrad2 |
45 |
|
|
46 |
PRINT *, 'Call sequence information: inidissip' |
PRINT *, 'Call sequence information: inidissip' |
47 |
call random_seed(size=seed_size) |
call random_seed(size=seed_size) |
48 |
call random_seed(put=(/(0, ii = 1, seed_size)/)) |
call random_seed(put=(/(1, ii = 1, seed_size)/)) |
49 |
|
|
50 |
PRINT *, 'Calcul des valeurs propres de divgrad' |
PRINT *, 'Calcul des valeurs propres de divgrad' |
51 |
deltap = 1. |
deltap = 1. |