15 |
use comconst |
use comconst |
16 |
use comvert |
use comvert |
17 |
use conf_gcm_m |
use conf_gcm_m |
18 |
|
use comdissipn |
19 |
IMPLICIT NONE |
IMPLICIT NONE |
|
include "comdissipn.h" |
|
20 |
|
|
21 |
LOGICAL lstardis |
LOGICAL lstardis |
22 |
INTEGER nitergdiv,nitergrot,niterh |
INTEGER nitergdiv,nitergrot,niterh |
203 |
|
|
204 |
PRINT *,' INIDI tetamin dtvr ',tetamin,dtvr,iperiod |
PRINT *,' INIDI tetamin dtvr ',tetamin,dtvr,iperiod |
205 |
idissip = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod |
idissip = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod |
206 |
PRINT *,' INIDI tetamin idissip ',tetamin,idissip |
PRINT *,' tetamin = ',tetamin |
207 |
idissip = MAX(iperiod,idissip) |
idissip = MAX(iperiod,idissip) |
208 |
dtdiss = idissip * dtvr |
dtdiss = idissip * dtvr |
209 |
PRINT *,' INIDI idissip dtdiss ',idissip,dtdiss |
PRINT *,' INIDI idissip dtdiss ',idissip,dtdiss |