INTEGER layers_num(layers_maxNum), layers_krho(layers_maxNum)
COMMON /LAYERS_PARM_I/ layers_num, layers_krho
IF ( layers_num(iLa) .EQ. 1 ) THEN
ELSEIF ( layers_num(iLa) .EQ. 2 ) THEN
ELSEIF ( layers_num(iLa) .EQ. 3 ) THEN
& .AND. layers_num(iLa).NE.0 ) THEN
IF ( layers_num(iLa).EQ.3 ) THEN
IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN
IF ( layers_num(iLa) .EQ. 3 )
IF ( layers_num(iLa).NE.0 ) THEN
CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, tmpName(1:15),
IF ( layers_num(iLa).EQ.3 )
IF ( layers_num(iLa) .EQ. 3 ) THEN
IF ( layers_num(1).EQ.3 )
layers_num(iLa) = 0
IF ( layers_name(iLa).EQ.'TH ' ) layers_num(iLa) = 1
IF ( layers_name(iLa).EQ.'SLT' ) layers_num(iLa) = 2
IF ( layers_name(iLa).EQ.'RHO' ) layers_num(iLa) = 3
& layers_num(iLa).EQ.0 ) THEN