| File |
Line number |
Procedure |
Code |
|
./model/src/ini_parms.F |
490 |
INI_PARMS |
vertSetCount = 0 |
|
./model/src/ini_parms.F |
492 |
INI_PARMS |
IF ( viscArNr(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
494 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
496 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of viscArNr is not allowed' |
|
./model/src/ini_parms.F |
502 |
INI_PARMS |
ELSEIF ( vertSetCount.GT.0 ) THEN |
|
./model/src/ini_parms.F |
508 |
INI_PARMS |
IF ( vertSetCount.EQ.0 ) THEN |
|
./model/src/ini_parms.F |
524 |
INI_PARMS |
vertSetCount = 0 |
|
./model/src/ini_parms.F |
526 |
INI_PARMS |
IF ( diffKrNrT(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
528 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
530 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrT is not allowed' |
|
./model/src/ini_parms.F |
534 |
INI_PARMS |
specifiedDiffKrT = vertSetCount.EQ.Nr |
|
./model/src/ini_parms.F |
537 |
INI_PARMS |
ELSEIF ( vertSetCount.GT.0 ) THEN |
|
./model/src/ini_parms.F |
545 |
INI_PARMS |
IF ( vertSetCount.EQ.0 ) THEN |
|
./model/src/ini_parms.F |
556 |
INI_PARMS |
vertSetCount = 0 |
|
./model/src/ini_parms.F |
558 |
INI_PARMS |
IF ( diffKrNrS(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
560 |
INI_PARMS |
IF ( vertSetCount.GT.0 .AND. vertSetCount.LT.Nr ) THEN |
|
./model/src/ini_parms.F |
562 |
INI_PARMS |
& vertSetCount, ' /', Nr, ') of diffKrNrS is not allowed' |
|
./model/src/ini_parms.F |
566 |
INI_PARMS |
IF ( vertSetCount.EQ.Nr ) THEN |
|
./model/src/ini_parms.F |
92 |
INI_PARMS |
INTEGER vertSetCount |